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AU SOMMAIRE DES 
ANCIENS NUMEROS DE 


théorie* 


éléments de programmation 


hévric 




Numéro 6 

Essais de l'XL DOS. AUTOVERIF 
pour améliorer la fiabilité du char¬ 
gement cassette. Essai de la carte 8 
E/S MAGECO. VOICE : ORIC 
parle dans interface. RENUM-DES- 
TRUC renumératiorjaet suppression 
de lignes Basic. Les interrup¬ 
tions : une horloge. Master-mind : 
jeu. ANADIS : Shalyse de dis¬ 
quettes au format MICRODISC. La 
Jasmin-Printer (Brother M 1009) à 
l'essai et recopie d'écran pour cette 
imprimante. 

Numéro 7 

BLURK'S : jeu. Editeur de carac¬ 
tères pour redéfinir le jeu de carac¬ 
tères. Calculs en langage ma¬ 
chine pour aller plus vite. Lecture 
et Ecriture de secteurs sur Jas¬ 
min ou comment réparer une dis¬ 
quette. Tour d'horizon des Moni- 
teurs-Assembleurs du commerce. 
Le magnéto sans angoisse ou 
comment améliorer le chargement 
des cassettes. Essai du RANDOS. 
Essai du crayon optique. Recopie 
d'écran sur MCP 40. L'interface 
TVS. 

Numéro 10 

Essai du modem TONIC. Le Basic 
Français. Utilitaires pour vous plaire 
(1). Modifications du MONITEUR 
1.0 de LORICIELS. CROCKY : jeu. 
Compte bancaire : gérez-le sur 
MICRODISC (1). Compatibilité DTL 
2000 et JASMIN. 


Numéro 11 

Hors-sérj 
program 


Irie rempl 
nmes en ti 

r 


d'une multitude de 
tous genres. 


Numéro 12 

Ecrivez votre jeu d'aventure : COL- 
DITZ. Le DTL 2000 + un serveur 
pas cher. Schéma électronique de 


l'ORIC. Essai de la table graphique 
GRAPHISCOP. Le partage mé¬ 
moire de l'ORIC. Utilitaires pour 
vous plaire (2). ^Mry iMoniteur- 
Assembleur. Compte bancaire 
(suite et fin). M 


Numéro 13 

Transfert du FORTH sur MICRO¬ 
DISC. TANDEM 13 un logiciel pour 
le DTL 2000. Jouez avec les cou¬ 
leurs de l'ORIC. Utilitaires pour vous 
plaire (3). Créer des fenêtres sur 
ORIC. MICRODISC et JASMIN : 
ils communiquent. City on Raid : 


abies 


Super 


Numéro 14 

Le SEDORIC à la loupe. Un éditeur 
de caractères en langage ma¬ 
chine. ( CONJUGAI^J| OFjjp à 
' Sortir 

^ (lez 

ïcrol- 
vari- 

ïire : 

Sembleur. Jouez 
avec les Mots-Cachés. 


Numéro 15 

Une imprimante à l'essai : la MT 
80S. Spirographe : rosaces et ara¬ 
besques. TRON les motos de lu¬ 
mière (jeu). Esssai de la carte 256 
couleurs de Microfutur. Editeur de 
secteurs sur Jasmin. MUSICORIC 
pour que l'ORIC-1 devienne musi¬ 
cien. Carte sériq.pour liaison avec 
MINITEL. Educatif : le moteur à 4 
temps. Ftetiéfinition de caractères 
pour EASYTEXT. 

Numéro 17 

Le TELESTRAT se présente. Trans¬ 
fert de l'écran TEXT en HIRES (1). 
Conversion du binaire en DATA. 
ORICTEL : logiciel d'application de 


la carte série Minitel. Recopie ra¬ 
pide sur Imprimante mode texte. 
Ecriture évoluée. LEONARD : utili¬ 
taire de dessin (1). Fiches de 
paye : comment calculer les sa¬ 
laires avec ORIC. Jacq uette s de cas¬ 
settes pour GP 50. Catalogue 
amélioré sur Jasmin 


Numéro 18 
Un drive 3"1/2 à Triphonle : 
l'ORIC devient orgue. Connaissez- 
vous les objets tractais ? Le 
Devin : chirologie ou jeu ? Un jeu : 
Frog Panic. Pour lister un program¬ 
me à partir du MINITEL (et de la 
carte série) : MLIST. Accordez vos 
instruments de musique avec Fré- 
quencamètre. Text-Hires (fin). Léo¬ 
nard (suite). Deux recopies d'é¬ 
cran : GP 550 et Brother Ml 009 
(Jasmin printer). Lister l'EPROM du 
Microdisc. 

Numéro 19 

Léonard : fin de l'utilitaire création 
graphique. Modifications de l'AT- 
MOS et du MICRODISC. Un mini¬ 
interpréteur. Protection du Hl- 
MEM. Le tri en langage machine. 
Jeu éducatif : EUROP'ORIC. En sa¬ 
voir plus sùr le SEDORIC Compte 
bancaire gérez-ljrsur JASMIN. Uti¬ 
litaires pourvus plaire (4). 

Numéro 20 

CALCULATOR : banc d'essai - 
PUISSSANCE 4 jeu - Recopie d'é¬ 
cran pour FASTJXT 80 - Mini Inter¬ 
préteur Basic. 

Numé 

Les interruptions - Animation gra¬ 
phique en 3 D - Jeu : Singerie (1) - 
SEDUTIL pour mieux utiliser SEDO¬ 
RIC - Recopia page VIDEOTEX - 
Buffer soft pour; imprimante - Super 
recopie i 


Numéro 22 

Tout sur le VIA 
caractères gé 
JASMIN - 
SWAP OVE 
mieux s'alim 


6522 - GROS : 
ISICORIC et 
leries (2) - 
Diététique : 
ir - Schéma de la 


carte contrôleur JASMIN - Compac¬ 
teur graphique - Animation gra¬ 
phique 3D. 


Numéro 23 

Educatif : TABLORIC. Print Formaté 

- String : commandes graphiques - 
Sauvetage d'un programme - Cal¬ 
culs de l'ORIC - Trames et collages 

- Casse-briques - clipping. 


Numéro 24 

Chasse au bug - Astrologie et ordi¬ 
nateur - Singerie (fin)" Calculs dans 
N - Dossier TELESTRAT - Mini- 
Print : éditeur de banderolles - Dé¬ 
tection de sonnerie - Ecran 59 x 28 
caractères - Note - cale. 


24 


Numéro 25 
Test : le Jasmin-PCi Ces fichiers 
dont tout lemonde parle - Ecriture 
stylée sur MCP 40 - Jeu de la vie - 
Rem color - En savoir plus sur FT 
DOS - Data + - ORIC à 2 ROM - 
MUSIC(I) 


Les articles et programmes rappelés 
ci-dessus (né ferment que l'essentiel 
des différents numéros de THEORIC 
cités. Les essais des différents logi¬ 
ciels, les trucs et astuces, etc. sont 
autant d'arguments qui devraient 
vous inciter à compléter votre collec¬ 
tion de THEORIC. | A 


(Pour les seuls numéros encore 
disponibles en décembre 1986) 
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Comment retrouver 
une erreur.. 




Edit + 


18 


Nouveautés 

TELESTRAT 


26 


LAREN : 

renuméroteur Télestrat 


22 


Trucs et astuces 
pour Télestrat 


35 


Tout sur FT-DOS 


27 


La gestion de Break 


Trucs et astuces 


23 


Téléforth 


38 


Educatif : Tables 


29 


Librarian 


46 


BASIC + 


... et nos rubriques habituelles : courrier des lecteurs page 6, sondage mensuel 
page 47, petites annonces page 49', abonnement et disquettes page 50. 











22, rue de Montreuil 94300 VINCENNES - Tél. : (1) 43.28.22.06 

OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h et de 15 h à 19 h, LE SAMEDI de 10 h 30 à 19 h 

REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 


1(^*1 * 1 *%' 


□ moniteur couleur 


Le lecteur disquette conçu par ORIC FRANCE 
l'Atmos. 

□ lect.disq. MICRODISC. 27 


□ atmos 


Il ne lui manque que la parole", synthé. V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
rampaanp 1 

□ synthétiseur vocal. Ï7ÎKL.F 240 F 


pRON\Ot' oN 


PROMOTION logiciel ORIC 1 exclusivement 

pour 2 titres : 145 F pour 3 titres : 195 F pour 4 titres : 220 F pour 5 titres : 250 F 

□ trace dump □ le lièvre et la tortue □ gastronon n , . 

□ oric mind □ le monde végétal □ oric munch n , u . 

□ guerre des couleurs □morpion □facturation □ gestion bancaire 

□ ciros □dicodoric □ ultime zone nM. J 

□ fromage □ zigzag □ pengoric □ ouerre des couleurs 

□ logger □ acherons rage □ finances u 9uerre fles c °“ lellrs 

□calorie Dcentipède □ copy écran (pour GP 100) 

LOGICIELS CASSETTES 

Indiquez-nous en le soulignant un (ou deux) titres de remplacement en cas de rupture de stock. 

□ formulel.150F □ élysée.145F □ méfies-toiméphisto. 9! 

□ cobra pinball .150 F □ flipper.145 F □ mission delta .12î 

□ clovis 1 (échecs) 150 F □ frelon.125 F □ mission impossible.12! 

□ compilateurgraphique... 160F □ gestion de stock.145F □ montségur. 14! 

□ dossier G .145 F 

□ 3 D munch .140 F 

□ 3 Dfongus.140 F 

□ 3 Dmaze.100 F 

□ A.T.M.135 F 

□ add-sous.165 F 

□ assembl.symb.150 F 

□ assimil(anglais) . 275 F 

□ basic étendu .135 F 

□ basic français.145 F 

□ brique à brac.110F 

□ businessman.145 F 

□ canniballe .110F 

□ catégorie.110F 

□ cheops.140 F 

□ clavidact.125 F 

□ cobra .105 F 

□ cryptshow.110F 

□ cubomagique.190 F 

□ damae (jeu dames).125 F 

□ dédal.110 F 

□ détective story.160 F 


MODEM 

Votre ORIC s ouvre sur l'extérieur. Il "discute' 
avec ses semblables et accède au réseau "minitel" 
Fourni avec interface intégrée et logiciel 
□ modem DIGITELEC. IÏSCJ 990 F 


Rallonge Péritel ^ 

Ne soyez plus collé à l'écran, (prise OIN 
□ rallonge péritel. 


à 6 broches). 
.95F 


Interrupteur 

Ne courrez plus le risque de faire sauter la ROM 
□ interrupteur d'alimentation 85 F 


□ images (d.a.o.). 

□ insectinsanity. 

□ intox et zoe. 

□ j'apprends l'anglais ... 

□ karaté. 

□ la cité de cristal. 

□ la cité maudite. 

□ la flûte inca . 

□ la tour fantastique. 

□ leferd'amnukor. 

□ le général. 

□ manoir doetgenius. 

□ le masque d'or. 

□ le millionnaire. 

□ leminotaure. 

□ retour du doct.genius .. 

□ secret du tombeau. 

□ tour du monde 80 jours 

□ light cycle. 

□ lissage de courbe. 

□ locus . 

□ logo VI.O. 

□ lorigraph. 

□ loritel. 

□ macadam bumper. 

□ math-sam (Primaires).. 


Le "must" pour les amateurs de graphisme. Utilisée 
par la majorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
"top niveau" des résultats obtenus, (ex. options : faire 
des points, traits, boîtes, cercles.texte, remplir, "zoom"....) 
□ graphiscop. 990 F 


Interface tous jeux 

Grâce à cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux. 

□ interface joystick tous jeux.3 


Spécialement conçu pour ORIC ce magnétophone vous évitera 
bien des soucis. 

□ magnétophone. 380 F 


□ dialogue 


INTERFAC 


□ dit. ?d'ac ! (sci. nat. 5 e ) .. 

□ dit. ?d'ac ! (syst. auteur) . 

□ éléphorm/color. 

DISQUETTES 

JASMIN 

□ zonga . 

□ jasmitel . 

□ les conquérants . 

SEDORIC 

□ dangereusement votre .. 

□ arcade n° 1 . 

□ arcade n° 2 . 


LIVRES 


□ 56 prog.pouroric. 

□ l'oricàl'affiche. 

□ mieux prog. sur oric ... 

□ manuel réf. t2 . 

□ manuel de réf.tl . 

□ t-dos et ses fichiers ... 

□ apprenez élec. sur oric 


□ nouveauxjeuxATMOS .. 88 

□ jeux graphiques ATMOS . 95 F 

□ oric et son micro procès. . 95 F 

□ interfaces pour oric . 59 F 

□ l'oricà nu .151 F 

□ programme pour oric .... 85 F 


□ joystick compétition PRO. 

□ bloc alim. ORIC. 

□ alim. 12 V pour péritel.... 

□ rallonge de bus 1 slot. 

Cassettes vierges C20 

□ les 5. 

□ les 10 


Cette interface va cous permettre de transformer votre 
moniteur couleur en T V 

□ interface T.V.14 


□ don t press letter Q □ play ground 21 □ puzzle □ a view to a kill (007) 

□ encounter □ probe 3 □ rabbit □ 3 D maze 

□ extended basic 1 □ gubbie □ colorie □ 3 D exo 

□ micro-géo □ the ultra □ businessman □ adress file manager 

□ moria □ annuaire □ elektro storm 

□ oricade □ vision □ draught 

Cette promotion est valable dans la limite des stocks disponibles. Indiquez-nous en le soulignant un 
(ou deux) titres de remplacement en cas de rupture de stock. 


□ câble imprimante. 

□ stylos MCP40 . 

□ rouleaux papier MCP40 (par 4) 

□ disquette 3". 

□ disquette 3" (par 10) . 


Cette interface vous permet de laisser brancher en per 
manence trois appareils utilisant la prise péritel. 

□ interface multipéri . 750 F 


OFFRE SPECIALE ! 

Nous reprenons 500 F votre ORIC 1 ou ATMOS* 
pour l'achat d'un ATARI 520 STF avec moniteur monochrome 


Que vous recherchiez votre premier micro ou 
que vous ayez envie de franchir une étape décisive 
après avoir débuté avec un micro-ordinateur 8 bits, 
choisissez \Atari 520 STF. Cest une valeur sûre. 

Elu ordinateur de l’année aux USA, devenu 
rapidement le best-seller de la micro en Allemagne, 
déjà plébiscité en France, I Atari 520 STF est 
l'ordinateur le plus innovateur du marché. 

Celui dont vous tirerez le maximum de plaisir. 

Avec \Atari 520 STF, vous allez de 
révélation en révélation... 

Puissance formidable avec une U.C. de 520 Ko, 
Facilité d'utilisation avec la souris et le système 
d'exploitation GEM. 


Confort d’utilisation avec le multifenêtrage. 
Performances graphiques exceptionnelles. 
Richesse d’une palette de 512 couleurs, 

Capadtés sonores éclatantes et interface MIDI. 

Bien d’autres révélations vous attendent aux 
commandes de votre ordinateur. 

LA tari 520 STF, c’est le graphisme dans 
toute sa finesse, la couleur dans toute sa splendeur, 
la musique dans tout son éclal.. 

Créativité ou récréation, \Atari 520 STF, 
c’est la micro plaisir dans toutes ses dimensions. 


'IMPORTANT : Ne pourront être repris que les appareils accompagnés de leur prise péritel et du bloc alimentation de l’ordinateur. 
□ ATARI 520 STF + moniteur monochrome : 4990 F - 500 F . 4490 F 


COMMENT COMMANDER : Je possède □ ORIC 1 □ ATMOS 

Cocher le(s) article(s) désiré(s) ou faites en une liste sur une feuille à part. - Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F. 60 F pour tout achat supérieur è 1000 F 
80 F pour tout achat supérieur à 2000 F). 

NOM : _ PRÉNOM :_ TEL :_ 

ADRESSE : _ CODE POSTAL : _VILLE : _ 


Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 

envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


réseau 









































































































































ous disposez, depuis le numéro 30 de THEORIC, d'un sondage mensuel 
#5 qui doit nous permettre de mieux cerner notre lectorat et faire en sorte que 
THEORIC réponde à toutes vos attentes : il faut impérativement prendre le 
temps de remplir cette petite grille et nous la retourner... 

Les possesseurs de TELESTRAT devraient se réjouir : ils trouveront, dans leur revue 
préférée, une présentation des nouveaux produits consacrés à cette machine, des 
programmes et des trucs et astuces pour mieux l'utiliser... Que demander de plus ? 


AVEZ-VOUS 

LA 

COLLECTION 

COMPLETE 

DE 

THEORIC ? 





COMMANDE ANCIENS NUMEROS 



(valable jusqu'à épuisement des stocks) 


Numéros 6 à 21 . 30 F pièce 

Numéros 11 (Hors Série), 22 et suivants .... 25 F pièce 


ATTENTION : NUMERO(S) EPUISE(S) : 1-2-3-4-5-8-9-14-26 
NOM .Prénom . 

Adresse . 

Code Postal .Ville . 

Frais de port : 7,10 F pour 1 revue 
10,30 F pour 2 revues 
14,60 F pour 4 revues 
21,00 F au-dessus 


|Ci-joint, chèque bancaire ou postal de 


F. 
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Au fil du courrier et des réponses au 
sondage mensuel, une remarque 
revient fréquemment : "Je possède 
un ATMOS sans disquette et les 
programmes pour JASMIN et 
TELESTRAT ne m'intéressent pas" 
ou encore "J'ai un TELESTRAT et 
vous devriez diminuer la place con¬ 
sacrée à l'ATMOS dans la revue" 
ou bien "Pourquoi ne pas faire un 
THEORIC avec davantage de 
pages ?" 

Il est certes difficile de satisfaire tout 
le monde... Une revue comme 
THEORIC ne peut survivre que grâce 
à une gestion saine. Les annonceurs 
étant désormais très peu nombreux, 
il est impossible d'envisager une 
augmentation du nombre de pages 
de la revue ou alors il faudrait admet¬ 
tre une augmentation de prix qui ne 
serait pas pour plaire à la majorité. 
Dans ce volume de 48 pages, nous 
essayons chaque mois d'en donner 
à tout le monde : un jeu pour se 
défouler, des utilitaires pour aug¬ 
menter la puissance de l'ORIC, des 
articles d'information, mais aussi de 
la matière pour tous ceux qui possè¬ 
dent une unité de disquettes ou un 
TELESTRAT... car celui qui, 
aujourd'hui, ne possède qu'une 
"configuration de base", ne peut 
pas jurer qu'il ne la complétera pas 
demain ! 

Il faut donc être indulgent et penser 
un peu aux autres. Le meilleur 
moyen de s'exprimer consiste à rem¬ 
plir, chaque mois, le bulletin de son¬ 
dage. Grâce à lui, vous participerez 
activement à l'orientation de la revue 
car, pour son équilibre futur, nous 
tiendrons compte de vos réponses. 
Il est donc indispensable de consa¬ 
crer, chaque mois, quelques minutes 
à remplir le bulletin de sondage et à 
investir 2,20 F pour nous le retour¬ 
ner ! 



muxnA 


Ucuvx.» 


t rlpiiXG. 

ECRITURE STYLEE 

^ slRET f a T 


So£ulLxtLo^ 


la maintenance préventive... Pour 


Pour DATA +, nous rappelons (voir 
EUPHORIC THEORIC 30) qu’il fal¬ 
lait lire DOKE 0, DEEK (ft 90-2. 


tant, dans le cas d'un lecteur de dis¬ 
quettes, il vaut mieux ne rien faire, 
ne toucher à rien, aussi surprenant 
que cela puisse paraître. L'équipe¬ 


ment de la rédaction est sous- 


Nous reproduisons ici, in-extenso, 
une lettre qui devrait faire plaisir aux 
auteurs de THEORIC... C'est le plus 
beau cadeau qu'ils puissent recevoir 
de la part des lecteurs ! 


DE Yves BEAUDET 
45 FAY-AUX-LOGES 

Est-il possible d'assurer soi-même 
une certaine maintenance d'un lec¬ 
teur de disquette JASMIN 2 ? 

La meilleure maintenance est certes 


tension (en moyenne 30 heures par 
semaine) depuis plus de 2 ans : nous 
ne sommes jamais intervenus sur le 
matériel... Nous croyons sincère¬ 
ment que cette absence de "main¬ 
tenance" ne peut être que 
bénéfique. 
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Pour établir un diagnostic de panne, 
il faut avoir un minimum de connais¬ 
sances. En règle générale, on com¬ 
mencera (surtout sur le JASMIN !) à 
contrôler l'alimentation... Le reste 
est du domaine d'un électronicien 
bien équipé. 

Pas d'étiquette 
abonné ou pas 
d'enveloppe self- 
adressée égale pas 
de réponse au 
courrier. Qu'on se 
le dise ! 

Nous avons reçu, ces dernières 
semaines, des courriers d'auteurs 
nous demandant de les aider, par le 
canal de THEORIC, à vendre des 
logiciels qu'ils ont réalisés et qui sont 
trop longs pour être publiés. 

A ce sujet, nous aimerions faire quel¬ 
ques remarques : si, pour deux d'en¬ 
tre eux, les auteurs avaient pris soin 
de joindre une disquette (afin que 
nous puissions juger de la qualité), 
pour les autres nous n'avons aucune 
"preuve” (sans vouloir mettre en 
doute l'honnêteté des auteurs) de 
l'existence du produit... Nous ne 
pouvons, à la rédaction, cautionner 
de telles tractations commerciales. 
Il existe pour cela les petites annon¬ 
ces et nous invitons les auteurs de 
logiciels à les utiliser pour proposer 
leurs produits. 

AUX AUTEURS 

Lorsque vous envoyez à la rédaction 
une cassette ou une disquette avec 
votre dernière réalisation, pour la voir 
publiée dans la revue, pensez à ôter 
les REM clignotants ou autres PRINT 
truffés de caractères de contrôle ! 
Certes, cela fait joli lors d'un LIST... 
mais quelle calamité lors d'un 
LLIST ! Il faut reprendre chaque ligne 
pour la modifier, ce qui n'accélère 
pas la parution de votre œuvre ! 



Dans le numéro 29 page 18, sur le 
programme INIT (article T.DOS), il 
manque la ligne suivante : 

410 DATA NOIR, ROUGE, VERT, 
JAUNE, BLEU, MAGENTA, CYAN, 
BLANC 

Dans le numéro 29 (toujours !), une 
erreur s'est glissée sur le schéma de 
la sortie son stéréo. Les broches ne 
sont pas numérotées comme la prise 
de l'ORIC et un fil ne va pas au bon 
endroit... 

La prise cassette de l'ORIC est vue 
de l'extérieur. 



Petit problème de photocomposi¬ 
tion dans THEORIC n° 30 page 43, 
1ère colonne. Les signes d'éléva¬ 
tion à la puissance t se sont trans¬ 
formés en i majuscules... 

Il fallait lire : 

D = D + 2ÎI 
et(n + 1)î(5-l) 




Nouveau \ 

Abonnement 
disquettes JASMIN 

Les disquettes de THEORIC ont 
succès. En conséquence,'leur f 


baisse et passe à 116 F pour les 
abonnés à la revue et 146 F pour 
les non-abonnés. 

Pour vous faire économiser davan¬ 
tage, nous proposons, l'abonne¬ 
ment aux disquettes. Pour 6 
disquettes, vous ne- payerez que 
606 F. Cet abonnement est totale¬ 


ment indépendant de l'abonne¬ 
ment à la revue. L’économie réa¬ 
lisée est loin d'être négligeable ! 
N'oubliez pas, ces disquettes peu¬ 
vent être transférées sous SEDO- 
RIC par l'utilitaire CONVERT... pour 
peu que votre SEDORIC soit à 
jour ! 





L'IMPRIMANTE 

CITIZEN 





L 'achat d'une imprimante ne s'effectue pas à la légère, aussi 
convient-il de ne pas se tromper et de choisir un matériel dont 
les caractéristiques sont adaptées, à la fois à l'ordinateur hôte 
et aux besoins de l'utilisateur. Il existe actuellement sur le marché un 
modèle qui bénéficie des faveurs du public : l'imprimante CITIZEN 
120D. 


Cette imprimante offre toutes les 
possibilités que l'on est en droit 
d'exiger d'un matériel que l'on ne 
pense pas utiliser 24 heures sur 24. 
D'esthétique agréable, elle offre une 
fiabilité et un caractère ''universel'' 
qui justifient son succès auprès du 
public. Compatible avec la norme 
EPSON, reconnue par la majorité des 
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logiciels, elle est dotée de modes 
graphisme "par blocs” et "par 
lignes", ainsi que de tous les modes 
"texte" souhaitables, comme nous 
allons le voir. 

L'imprimante est équipée d'une car¬ 
touche interface amovible. Ceci offre 
deux avantages : on peut passer 
facilement de la liaison série (option) 
à la liaison parallèle, et donc utiliser 
la machine sur des ordinateurs aux 
exigences variées, ou encore accé¬ 
der aisément aux switches qui 
gèrent son fonctionnement. Seule 
précaution, ne pas ôter cette cartou¬ 
che quand le matériel est sous 
tension... 

Comme toutes les imprimantes 
récentes, la 120D utilise des rubans 
encreurs en cartouche, ce qui évite 
de se salir les doigts lors de la mise 
en place. Le capot transparent amo¬ 
vible intègre la barre presse-papier. 
Ce choix est contestable car, lors de 
l'utilisation en mode feuille à feuille, 
le papier ne se trouve pas fermement 
plaqué contre le cylindre de caout¬ 
chouc. Le passage du mode feuille 
à feuille au mode listing s'effectue 
très facilement : il suffit d'ôter le 
tracteur... Un levier assure le pas¬ 
sage traction-friction. Autre inconvé¬ 
nient, minime il est vrai, les guides- 
picots laissés malencontreusement 
ouverts empêchent l'ouverture du 
capot transparent... Enfin, l'absence 
d'un dispositif coupe-papier efficace 
pourra paraître gênant à certains uti¬ 
lisateurs. Par contre, la mise en place 
et le réglage de tension du papier ne 
sauraient poser aucune difficulté. 
Avantage incontestable de la CITI¬ 
ZEN, un sélecteur de modes est dis¬ 
posé sur le panneau avant. Le pas¬ 
sage du Pica au NLQ, de l'italique au 
renforcé ou au condensé devient un 
jeu d'enfant ! Outre leur rôle habi¬ 
tuel, les poussoirs ON LINE, LF et FF 
servent à effectuer cette sélection. 
Les cinq positions du réglage 
d'épaisseur de la 120D permettent 
d'accepter des liasses de papier 
autocopiant comprenant jusqu'à 
trois exemplaires. C'est en déclen- 


AVEZ-VOUS 

LA 

COLLECTION 

COMPLETE 

DE 

THEORIC ? 

Bon de commande page 5 


chant le mode "Auto-test" de l'im¬ 
primante que vous réglerez au mieux 
la force de frappe. 

Les commutateurs logés dans la car¬ 
touche interface agissent sur des 
paramètres tels que le zéro barré, 
l'interligne, la longueur de page ou 
encore les caractères accentués. Les 
différentes commandes reconnues 
par le logiciel interne sont outre¬ 
passées par la position de ces 
switches. 

Ce simple banc d'essai ne saurait 
montrer au lecteur les nombreuses 
possibilités de l'imprimante. Impres¬ 
sion proportionnelle, mode souligné, 
exposants ou indices, passage en 
négatif, choix de la hauteur des 
caractères n'en sont qu'un vague 
aperçu... Nous avons reproduit, dans 
le tableau accompagnant ce texte, 
certains jeux de caractères sollicités 
fréquemment. De plus, l'utilisateur 
appréciera de pouvoir redéfinir cer¬ 
tains caractères à sa guise. Regret¬ 
tons tout de même l'impossibilité 
d'obtenir les minuscules accentuées 
en mode italique. 

Les modes graphiques, quant à eux, 
autorisent l'impression de 60 à 
240 points par pouce. Sur 9 aiguil¬ 


les, seules 8 sont utilisées dans ce 
mode. Grâce à la double ou à la qua¬ 
druple densité, les recopies graphi¬ 
ques pourront être d'excellente qua¬ 
lité... si le logiciel est capable de tirer 
parti des avantages de l'imprimante. 
Compatible avec les logiciels de 
recopie d'écran tels que "Super Fac 
Sim" ou "Recopie Brother M1009” 
déjà publiés dans THEORIC, la CITI¬ 
ZEN 120D est utilisée par la rédac¬ 
tion et ne nous a jamais déçus. 

Les développeurs de logiciels remer¬ 
cieront les concepteurs de l'impri¬ 
mante pour avoir pensé à intégrer un 
mode DUMP HEXADECIMAL qui 
peut être d'un grand secours lors de 
la mise au point de routines récalci¬ 
trantes. On voit alors apparaître sur 
le papier tous les codes envoyés par 
l'ordinateur à l'imprimante, sous leur 
forme hexadécimale ou symbolique. 
Avec ses 120 caractères par 
seconde (25 en NLQ), ses différen¬ 
tes matrices de caractères, ses 
modes graphiques, sa compatibilité 
EPSON et IBM... et son prix public 
autour de 2200 F, la CITIZEN 120D 
allie bien des qualités que vont 
devoir lui envier bon nombre de 
concurrentes. 


CITIZEN 120D 

CARACTERISTIQUES TECHNIQUES 



120D 

O Tête d'impression 
(changeable par l’utilisateur) 

9 aiguilles 

O Vitesse 


Qualité informatique (cps) 

120 

Qualité courrier (cps) 

25 

Durée de vie (caractères) 

100 millions 

O Type d'impression 

Sens d'impression; 


Bi-directionnel en texte 

Standard 

Uni-directionnel en bit graphisme 

Standard 

Impression optimisée 

Standard 

0 Taille des caractères 

(car./line car./inch) 


PICA 

80/10 

Expansé 

40/ 5 

Compressé 

136/17 

Compressé/expansé 

68/8,5 

ELITE 

96/12 

Expansé 

48/12 

O Matrice 

(vertical x horizontal) 


Standard 

9x 11 

NLQ 

17 x 17 

Jambage 

8ème et 9ème aiguille 

Double frappe 

9x9 

Frappe grasse 

9x 10 

Frappe grasse double 

9x 18 

Graphisme 

8x12 

O Resolution graphique 

8 aiguilles mode graphique 


Densité normale 

60 DPI 

Double densité 

120 DPI 

Double densité double vitesse 

120 DPI 

Quadruple densité 

240 DPI 

Recopie d'écran 

80 DPI 

Recopie d'écran II 

90 DPI 

Traceur 

72 DPI 

Traceur 11 

144 DPI 

9 aiguilles mode graphique 

Densité normale 

Standard 

Double densité 

Standard 

O Jeu de caractères 

ASCII standard 

% 

ASCII Italie 

% 

leux de caractères nationaux 

32(11 jeux) 

Jeux de caractères italic 

32(11 jeux) 

Mode graphique Epson 

32 

Mode graphique IBM Pro Pnnter 


Indice supérieur-inférieur 

Tous les caractères 

Qualité courrier 

Standard 



120D 

O Entrainement du papier 


Alimentation du papier 

Traction ou 
friction 

Vitesse d'avance du papier 

1,8 1PS 

Espace ligne 

1/6, 1/8, 7/72. 
n/72, n/144, n/216 

Papier continu 

3.5-10' 

Papier pré-découpé 

3.5-10' 

Nombre de copies 

1 + 2 

Epaisseur du papier 

0,006-0.3 mm 

O Rubans 

Type 

Cartouche 

Durée de vie (caractères) 

2 millions 

O Interface (cartouche! 

8 bits parallèles Centronics 

en option 

Série RS 232 C 

Optionnel 

Buffer STD 

4 K 

O Codes de contrôle 

Epson — IBM 
(peut être sélectionne par 
switch ou par logiciel) 

O Environnement 

Température opérationnelle 

5'C à 35°C (41F a 95F) 

Humidité opérationnelle 

10% a 80% 

O Alimentation 

Tension 

180-264 VAC 

Courant/fréquence 

0.5A/49.5-60.5 Hz 

Consommation 

90 VA 

O Auto-Test 1 • 

Tous caractères ROM 

2. 

Hexadécimal 

O MTBF 

(exclu tête d'impression) 

4.000 heures 

O Dimensions (mm) 


Largeur 

386 

Profondeur 

240 

Hauteur 

90,5 

O Pbids (kg) 

3.7 

O Autres 

N/B Impression inversée 


Détection fin papier 


Caractères téléchargeables 


alimentation papier par le bas 
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jeu_ 

HELIPORT 


Christian LARUE 


U n jeu d'arcades n'est pas obligatoirement une réalisation en lan¬ 
gage machine, ne pouvant être effectuée que par des virtuoses 
de l'assembleur. Voici un exemple de jeu, aux qualités très ho¬ 
norables, qui devrait pouvoir servir d'exemple aux débutants. 


"HELIPORT" est un jeu dont le but 
principal est de ramasser des étoi¬ 
les grâce à un hélicoptère, tout en 
évitant une sorte de monstre qui 
vous poursuit. Il faut ensuite atterrir 
sur un héliport pour passer au ta¬ 
bleau suivant. La vitesse du mons¬ 
tre augmente, ainsi que le nombre 
d'étoiles et votre appareil est régu¬ 
lièrement ralenti par les "ratés" de 
moteur. Il y a en tout 10 tableaux (et 
même un tableau en hommage à 
THEORIC !). 

Points : 

- A chaque étoile attrapée : 

10 points. 

- A chaque tableau terminé : 

20 points. 

-A chaque groupe de 10 tableaux 
terminés : 200 points. 

Les dix tableaux sont composés de 
labyrinthes, de salles, etc. 

Les premiers tableaux vous paraî¬ 
tront faciles mais, après un mo¬ 
ment, il est difficile de semer le 
monstre qui vous suit. Il faut donc 


user de stratégie et essayer de blo¬ 
quer le monstre contre des étoiles 
ou des parois car sinon, surtout 
dans les derniers tableaux, il est im¬ 
possible de contenir le monstre qui 
va aussi vite que vous. 

Mon meilleur score est de 3910 
points. 

DESCRIPTION DU 
PROGRAMME "HELIPORT" 

• Variables : 

N : nombre d'étoiles 
Z : vitesse du monstre 
T : numéro des tableaux 
SC : score 

E : abscisse du monstre 
F : ordonnée du monstre 
X : abscisse de l'hélico 
Y : ordonnée de l'hélico 
H1 : abscisse des étoiles 
H2 : ordonnée des étoiles 
C : indicateur nombre d'étoiles at¬ 
trapées 

V2 : code de l'étoile 
V3 : code parois 


U : ordonnées descente 
hélico (mort) 

• Structure 

0-200 : 

Redéfinition caractères 
200-300 : 

Présentation 
300-400 : 

Instructions 
400-500 : 

Implantation décors + tableau 
500-668 : 

Boucle principale du jeu 
670-800 : 

Déplacement monstre 
1499-1520 : 

Atterrissage 
5000-5210: 
mortde l'hélico + fin 
6000-14150: 

Les 10 tableaux 
15000-15090: 

Petite animation si 10 tableaux ef¬ 
fectués. 


1 ’*****LARUE CHRI STI AN**** * 

2 ***** PRESENTE ***** 

3 •'**:*** HELIPORT ***** 

4 •' * * * * * C O P Y RIG H T LARUE***** 

5 ****** DECEMBRE 1986 ***** 

10 DATA 0,0,62,11,43,63,18,63 
15 DATA 0,0,28,11,43,63,18,63 
20 DATA45,63,63,45,33,45,63,63 
25 DATA 63,21,63,21,63,21,63,21 
35 DATA 28,28,14,14,28,28,14,14 
4 0 DATA 0,0,6,31,63,62,28,0) 

45 DATA 0,17,14,21,14,14,17,0 

50 DATA 0,8,28,54,28,8,0,0 

55 DATA 12,12,63,63,12,12,30,63 

90 POKE 618,10 

100 REM - REDEFINITION- 


1 10 

FOR 1 

=46848 TO 46919 

120 

READ 

D 

1 30 

POKE 

I , D 

140 

NEXT 

I 

200 

REM - 

--PRESENTATION- 

210 

GLS 


220 

PLOT- 

12,13,"H E L I P O R T" 

230 

PLOT 

5,1,"sur ORIC ATMOS" 

240 

PLOT- 

5,25,"PAR CHRISTIAN LARUE" 

245 

PLOT 

37,15,"b" 

250 

C| 

WA I T 

300 : PLAY 1 ,1,4,999 :SOUND1 ,400 

260 

FOR I 

=3 TO 37 

265 

IF 1/ 

2=1 NT(I/2)THENDi= "a" ELSE Di 


=CHRi(96) 

270 PLOT 1,13, D$ : PLOT 1-1,13,32 
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230 WA IT 10 : NEXT I : WA I I 100 : FLOT37,14, 
96 : PLOT37,13,32:WA I T100 :PLAYO,0,0,0 
290 GET A $ 

300 REM INSTRUCTIQNS- 

310 GLS 

3 1 5 PLOT 14,4,"INSTRUCTIONS": PLOT 14,5 

320 PLOT 5,7 ,"VOUS PILOTEZ UN HELICO 
, ET VOUS" 

330 PLOT 3, 8,"DEVEZ ATTERIR SANS 'CR 
ASH' SUR VOTRE" 

335 PLOT 3, 9,"HELIPORT EN EVITANT LE 
MONSTRE." 

336 PLOT7,10,"CEC I FA I T, APPUYEZ SUR 
SPACE POUR" 

337 PLOT3,11,"ARRETER VOTRE MOTEUR ET 
PASSER AU" 

338 PLOT3,12,"TABLEAU SUIVANT..." 


340 
350 
360 
3 7 0 
3S0 

3 9 0 

4 0 0 
4 05 

407 

408 
410 
420 
4 30 
440 
450 
455 


PLOT 10,14,"HAUT : A " 

PLOT 10,16,"BAS : FLECHE EN BAü" 
PLOT 10,18,"DROI TE : ->" 

PLOT 10,20,"GAUCHE : <-" 

PLOT 5,24,"BONNE CHANCE" 

GET A$;N=5;T= 1:SC=0:Z=4.6 

REM- DECORS - 

C=1 : N = N + 5 ;Z=Z-.3 :E=35:F=3: X = 4:Y=3 
IF T=I1 THEN GOSUB 15000 
CL S 

FOR 1=4 TO 35 

PLOT I ,2 , "c " : PLOT I , 2 3 , "c":NEXT I 

FOR 1=2 TO 23 

PLOT 3,I , " c " : PLOT 36,I , "c" 

NEXT I 

ON TGQT0500,6000,7000,8000,13000, 


9000,10000,11000,12000,14000 
4 57 T=1 : GOTO 400 


► ► 










500 REM -BOUCLE JEU- 

502 PLOT 34,22,“b" 

505 PLOT E,F,"f " :PLOTX,Y,96 
510 FOR 1=1 TO N 

520 H1 = I MT < R NE» < 1 ) *32 ) +4 : H2= I NT < RND ( 1 ) 
*18)+4 

525 IF H 1=4 RND H2 = 3 THEN 520 
528 IF SCRNIHl ,H2) 0 32 THEN 520 
530 PLOT H1,H2,"g" 

540 NEXT I 

5 6 0 PLOTS,24,"SCORE : " : PLOT 13,24,STR * < 
SC) :PLOT24,24,"TABLEAU : " : PLOT32,24,STR 
$ (T) 

570 PLOT X,Y,C$ 

575 FOR 1=0 TO Z 

580 PLOT 13,24, STR $ SC ) 

590 PLAY 1,1 ,4,999 : SOUND1,4000,5 

6 00 IF PEEK< #208)= #AC ANDSCRN< X-i,Y)< 
> 99THENX=X-1 :PLOTX+1,Y,32 :GOTO650 

610 IF PEEK(#208)=#BCANDSCRN<X+1,& <> 
99 THEN X = X+1 : PLOT X-1,Y,32 :GOTO650 
620 IFPEEK(#208)=#B4 ANDY < 21ANDSCRN(X., 
Y+ 1 )O 99THENY=Y+1 ;PLOTX,Y-1,32:GOTO650 
630 IF PEEK(#208)=#9CANDSCRN(X,Y-1)O 
99 THEN Y=Y-1 : PLOT X,Y+1,32 :GOTO650 
6 5 0 IFSCRN(X,Y) = 10 3THENSC=SC +10 : PLAY 1 
,0,0,0 : MUSIC1,5,9,5 :PLAYO,0,0,0:C=C+1 
655 IF X=E AND Y=F THEN 5000 
660 IFSCRN(X,Y+1)= 98ANDON THEN GOSUB 
1500 :SC = SC + 2u:T = T + i :GOTO400 
6 6 2 IFK/2 =I NT(K/2)THENC* = "a"ELSEC$ = CH 
R $ ( 9 6 ) 

665 PLOT X,Y,C $ 

667 PR 1 NT à 1 3,24 SC : K = K+ 1 : I FE=XANDF=YT 
HEN 5000 

668 NEXT I 

670 REM **DEP. E.T.** 

672 V2 =103 : V3 = 99 
6 7 3 PLOT E,F,"f " 

6 75 IF E=X A N D F=Y T H E N 50 0 0 
680 IFE>XANDSCRN<E-1,F)<> V2ANDSCRN(E- 
1 ,F)< > V 3 THENE=E- 1 :PLOTE+1,F,32 
690 IFE <XANDSCRN(E +1,F)<>V2ANDSCRN(E+ 
l,F)O V3THENE=E+1 :PLOTE-1,F,32 
700 IFF>YANDSCRN(E,F-1)<>V2ANDSCRN(E, 
F-1)<>V3THENF=F-1 :PLOTE,F+1 ,32 
710 I FF <YANDSCRN(E,F+1)<>V2ANDSCRN(E, 
F+1)<>V 3 THENF=F +1 ;PLOTE,F-1,32 
713 IF E=X AND F=Y THEN5000 
715 IF E= 31 AND F=22 THEN 680 
720 PLOT E,F,"f " 


«H j.uu-nrrn 

CALL #F8D0 
5210 END 
6000 PLOTS , 6 , " c ■: 


800 GOTO 575 


1499 REM ATTERISSAGE 

1500 C=G: PLOT X,Y,96 
1505 GET A$ 

1510 1FA$ = " "THENSOUND1,4000,3 :WAIT99 
: SOUND1,4000,1:PLAYO,0,0,0:WAIT99:RETU 
RN 


1520 GOTO 1505 

5000 REM -DESTRUCTION- 

5040 PLAY 0,0,0,0 
5050 PLAY 1,0,0,0 
5100 FOR U=Y +1 TO 22 
5110 PLOT X,U,96 :PLOTX,U-1 g 32 
5120 WA IT 10 t\ 

5130 SOUND 1,100-U,5 
5140 NEXTU : PLAY 0,0,0,0 
515 0 PLOT X,2 3,9 9 : PLOT X,22,"h j 
{ 5155 WA IT 300 
5160 CLS: PRI NT : PRI NT : PR I NT : PRI NT"VOTR 
E SCORE ; " SC : PR I NT : PRI NT : PRINT 
5170 PRINT" ENCORE UNE PARTIE (O/N) 

O •< 

5175 GET A$ 

5180 IF A*="0" THEN 300 
5190 IF A $ <>"N" THEN 5160 
NT*PR I NT"AU 




(__ l__ l_ l_ l_ l_ 

6020 PLOTS,10 
C C C C 'Z c c c " 

6030 PLOTS,12 
c c c c c c c c " 

6040 PLOTS,14 
c c c c c c " 

6050 PLOTS,16 


6060 PLO'T'5,1 8 



>_ c c c 

ccc cccc 



t__ r |“ l_ r~ l__ l_ !_ |__ l_ |~ l_ |__ 


6070 PLOT5,20 

6090 GOTO 500 

7000 REM SEME TABLEAU 

7010 PLOT 5,5,"cccc 
c c c c " 

7020 PLOT 5,7," ccc; 

c c c c 11 

7030 PLOT 5,9,"cccc 
c c c c " 

7040 PLOTS, 11," ccc: 

c c c c " 

7050 PLOTS,13,"cccc 
c c c c " 

7060 PLOTS,15," cccc 

c c i-" 


i i i J 


CCCC 


7070 PLOTS,17,"cccc 
cccc" 

7080 PLOTS,19," c 


7120 GOTO 500 

8000 REM 4EME TABLEAU 

8010 PLOT 4,4," cccccccccccc 

8020 PLOT 4,6, 11 c c cccccccccc 
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i_ c c « I I l_ 

IC cccc 


iO PLOT 4,8, " c■_i_i_i_ l. i_c c lc c 
8040 PLOT4,10,"cccccc cccccc cccc 
- 8Ô50 PL0T4,12,"cc cccccc ce cccc 
8060 PLOT4,14,"cc 
8070 PLOT4,16,"cccccccccc 
8080 PLOT4,17," cccccccc cccc 

8090 PLQT4 ;a J c c c c cccc 

8095 PLQT M c c c 
8100 PLOT4,20," tocccccc cccc 
8110 PL0T4,21," ' . c c cccc c c cccc 

9000 REM SEME TABLEAU PAR L. BRUN IER 


9010 

9020 

9030 


L_ L_ 


PLOT 


c c cccc c c c cccc ceC C C » 


. 10, c c. c c cccccc 






9080 PLOT4,12,"ccccc 
; c c c c c c 11 ® 

9090 PLOT4V14,"cccccccccc» 
c c c c c c c cT ? ’i 
91Q0 PLOT 4,16,"ce» 

c C C C C C il c " 

^Wf^^OTO 500 

1 0000 PLOT 4,5,"ccccccccccccccccc 


100 l O PLOT 4,6, " c c c c c c c c c l. c ■_»_>_ c c c 


10020 P LOT 4,8 , " <- c <_ u cl. 



10030 PLOT 4,9,"ccccccccccc 

— Il 
l_ 

10040 PLOT4,10,"ccccccccccc 

_ il 
l_ 

1 0050 PLOT4,11," cccccc 


10060 PLQT4,12, 
c " 

10070 PLOT4,13, 
10080 PLOT4,14, 
10090 PLOT4,15, 
10100 PLOT4,16, 


i_ C C •_ 



C C C C C c c c c c c c 


c c 


c c 


c c cccc c c 
10110 PLOT4,17, " 
cc " 

10120 PLOT4,18, " 
10130 PLOT4,19 , " 
cccc" 

10140 PLOT4,20," 


C C C C C C L. C 


10150 PLOT4,21 , "ccccc 


C L. C <_ c C c c c c c 


L. U «_ L- U L. 


I_ I_L.I_.L_ l_ i_ 


10155 PLOT 4,22 , " <_ c c c ■_ c >_ >_ c c c c c c c c c c c c 


10160 GOTO 500 

11000 REM 7EME TABLEAU 

11010 PLOT 4,5, "cccccccci 
c c c c c " 

1 1020 PLOT 4,6,"c c cc c c c 
c c c c c " 

11030 PLOT 4,7,"c< 
cccc c " 

1 1040 PLOT 4,8, "c 
c c c c c " 

1 1050 PLOT 4,9 , "c 
cc cccc c" 

11060 PLOT4,10,"c 
c c c c c " 

11070 PLOT4,11,"c 


i_•_i i_ i 


•— «_ «_ «_ •_ c: 


•_ <_ «_ «_ c c c L 


1 1 « 1 1 II 

1 1080 

C c c 

PLOT 4 

l 1 i i i i i 

cc c" 

1 1090 

PLOT 4 

_ Il 

11100 

PLOT 4 

1- l_ «_ •_ 

11110 

PLOT 4 

1 1120 

PLOT4 

1 1 1 l l l l 

_ C C i_ 

11130 

PLOT 4 

11140 

PLOT 4 

" 

11150 

PLOT 4 

1 1 160 

PLOT 4 

11170 

PLOT4 

cccc" 


11175 

PLOT 4 

11180 

GOTO 


L >_ C L C C C L_ C «_ C i_ 


i_ i_ C *_ C C i_ c c c 


u c c c c c c 


l_ I_ i_ i_ i_ i_ i_ L_ c C 


l_ I_ l_ l_ l_ 


c c u i- 1 - cccc c c c •; 


- C L_ L L •_ 

I C C C C C C C C C C C C C ~ ~ “ ~ i"‘ i _ 


12000 REM 8EME TABLEAU éTHEORICè 
12010 PLOT 6,3,"c 

_ Il 
l_ 

12020 PLOT 6,4, "c 


12030 

r “ 

PLOT 

6,6, 

Il 

I_ 

C C L. 1- 

c 

c 

L_ <_ C <_ L 

12040 

h 

PLOT 

6,7, 

II 

c 

G 

c 

l~ 

i— L L 

12050 

PLOT- 

6,8, 

II 

l~ 

C C C 

c c 

c c c 

ccccc" 








12060 

PLOT 

6,9, 

II 

c 

c 

c 

c 

c c c " 








12070 

PLOT6 

, 10 , 

II 

c 

C 

c 

U 

IJ 

U 

U 

U 


12090 PLOT6,12, 


l_ U c 







































; -V.'ir-'' 

-f. -vv . 


1 21 00 
_ il 

PLüT 6,13," 

1211 0 

PLOT6,14," 

II 


12120 

PLOT6,15,” 

12130 

PLOX6,1d , " 

12160 

GOTO 500 

13000 

REM TABLEAU 

1 3010 

PLOT 5,4,"c 

_ il 

1 3020 

PLOT 5,5 , " c 

1 3030 

PLOT 5,6 , " c 

_ il 

1 3036 

PLOT 5 , v , "c 

_ il 

1 3040 

PLOT7,7 , " c 

c " 


I 3050 

PLOT7,8,"c 

_ ti 
i_ 


1306 0 

PLOT 5,9,”c 

_ il 

1 3070 

PLOTS,10,"c 

il 

1 3080 

PLOTS,11,"c 


c " 

1 3090 

— Ir 

PLOT7,12,"c 

1 3 1 00 

PLOT7,13,"c 

- Il 


13110 

PLOTS,14,"c 

C 

c " 

13120 

PLOTS,15, " c 

c 



L i 


L i 


13130 PLOTS,16,"c 
c c " 

13140 PLOT7,17,"c 
1"“ ** 

13150 PLOT7,18,"c 

— I) 
i_ 

13 16 0 PLOTSve» 

_ __ il 

U* 

13ÎÉ.0 PLOTS, 20, "c 
c c " 

131 go PLOTS , 2.L, ‘4c, 


l-_ L_ 


C 


Wk f 


13190 GOTO 500 • ; i T 
14000 PLOT 6,3, "c \! fï 

... m M X &~C " 

* 1jjl0 PLOT 6,4, "c 

-■* c" 

14 0 2%.PLOT 4,9, "cc cccc c c ccccc c cc c 
.xëss& m scrC'C c c c c " 

14030 PLOT4,10,"ccccccccc ccccccccc c 
c c c c c c 11 

14040 PLOT4,11,"ccccccccc c 

c c c c c c 

14050 PLOT4,12,"cccccccccccccc cccccc 
cccc C c c" 

14060 PLOT4,13," cccccc cccccc 

c c c c c c c c c c " 

14070 PLOT19,14,"ccccccc ccc" 


c »_ C c 

14090 PLOT6,16,"cccc 

— — — — — Il 

L. L. 

14100 PLOT12,17,"cccc 
14110 PLOT12,18,"cccc 
14120 PLOT12,19 


l_. l_ i t_ 


1 <. ■_ ‘ 


l_ l_ l_ l_ 

C c 


14130 PLOTS, 20, "ccc: 


L . •_ L_ L_ •„ L.. i_ U i... i_„ L_ L_ L. *— 


1 4.1. 4 0 PLOT 4,22 , " c cccccc cccc c c c cccc c c c 


14150 GOTO 500 

14999 REM-GAGNE 1 1 !- 

15000•A$ = "I ! ÎENGAG 2EVA SUOV ":Fü 

R 1=34 T027 STEP-1 

15010 IF 1/2=1 NT ( I /2 ) THENDi= " a ELBE D 
$=CHR$(96) 

15020 PLOT 1,21,D$'.PLOT 1 + 1,21,32 
15025 WA IT 10 
15030 NEXT I 

15040 FOR 1=26 Tü 5 STEP -.1. 

15050 IF I/2=INT( I / 2 ) THEMD$ = " a "ELSED$ 
=CHR$(96) 

15060 PLOTI,21 ,D$:G=-I+27: I$=MID$(A$, 
G,1 > : PLOTI + 1 ,21 ,I $ : WAI TT 5 : NEXT ; WA IT200 
15070 FORI=5 TO 34: IF I/2 =INT(I/2)THE 
ND$="a"ELSE D$=CHR$(96) 

15080 PLOT 1,21,Di:PLOT I -1,21,32 : WA I 
X 15 : NEXT I ; WA I T 300 :SC=SG+200:T=1 
15090 GOTO 400■ 
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COMMENT RETROUVER 
UNE ERREUR DANS 
UNE LIGNE DE DATAS 


Denis BONOMO 


L es programmes les plus intéressants sont souvent écrits en lan¬ 
gage machine, et les listings correspondants reproduits dans 
les revues comme des suites de DATAS... Souvent, les 
programmes intègrent une "Checksum" (somme de contrôle) aux 
lignes en question, permettant de déceler une éventuelle erreur de 
saisie. Cette "Checksum’* ne permet pas toujours de retrouver une 
erreur... 



Le cas le plus flagrant, où l'erreur 
n'apparaîtra pas, est lorsque deux 
données sont interverties sur la 
même ligne : résultat, la somme 
reste la même et il est impossible 
de détecter l'erreur autrement que 
par une lecture attentive du listing. 
Pour parer à cette éventualité, il fau¬ 
drait faire un contrôle "lignes-colon¬ 
nes" permettant de cerner l'erreur. 

Par contre, il arrive fréquemment 
que l'on tombe sur un message 
d'erreur assez laconique, du genre 
"Type mismatch error", affectant la 
ligne où se trouve la boucle FOR - 
NEXT incluant le READ de lecture 
des DATAS. Dans ce cas, le pro¬ 
gramme est incapable de diagnos¬ 
tiquer une erreur, l'analyseur du 
BASIC étant bloqué avant lui. Ceci 
se produit essentiellement lorsque 
l'on cherche à lire une donnée qui 
ne correspond pas à la variable à la¬ 
quelle on veut l'affecter. Suppo¬ 
sons que nous ayons tapé le listing 
de la figure 1 : 

10 FOR n = 30000 TO 30011 

20 READ d$:POKE n,VAL ("#"+ 

d$) 

30 NEXT 

100 DATA 10, 20,30,40, c0, dO 
110 DATA 11,12,13, g0, 20,33 
120 DATA 20, 30,11,21,32,17 


On obtiendra un "Type mismatch in 
20”. La première réaction consiste 
à dire : "je n'ai pas d'erreur sur la li¬ 
gne 20, c'est donc que ce program¬ 
me est mal foutu !"... et de télé¬ 
phoner ou d'écrire à la rédaction. Et 
pourtant, l'erreur est bien dans le lis¬ 
ting si vous avez tapé celui-ci com¬ 
me tel...Pour débusquer l'erreur, il 
suffit de faire PRINT D$. On obtient 
alors "g0" qui n'est pas une valeur 
hexadécimale... Pas étonnant que 
l'ordinateur la refuse : il est inca¬ 
pable de POKER quelque chose 
qui ne soit pas une valeur numé¬ 
rique... De même, il serait incapable 
de POKER une valeur supérieure à 
255... 

Dans notre cas, la recherche de l'er¬ 
reur n'est pas difficile : Il y a très 
peu de lignes de DATAS et la valeur 
en cause sera vite découverte. Si 
l’on travaillait sur un long listing, il 
serait judicieux de procéder diffé¬ 
remment. Après avoir noté la valeur 
erronée (par PRINT D$), il faut 
repérer la position du compteur de 
la boucle FOR - NEXT par un simple 
PRINT N (dans l'exemple évoqué). 
Ici, on obtient N = 30009. Il suffit de 
faire ? 30009 - 30000 (valeur de 
départ de la boucle) pour savoir 
que c'est la 10e (9 + 1) DATA qui 
est en cause. On retrouvera 


aisément cette DATA si le listing 
contient toujours le même nombre 
de données par ligne. Ici, on a 6 
données par lignes : notre "g0" 
doit se trouver sur la 2e ligne (2 x 6) 
de DATAS. 

La méthode est simple. Répétons- 
le, elle est "superflue" ici car le lis¬ 
ting est court mais... s'il y avait 3 pa¬ 
ges de DATAs, on pourrait com¬ 
mencer à voir son intérêt ! 


TOUT 

AUGMENTE ! 


NON, 

LE PRIX DES 
DISQUETTES DE 
THEORIC BAISSE ! 


Bon de commande page 50 
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L es lignes de 80 caractères dans vos programmes 
BASIC... Pourquoi pas ? Mais 254 caractères, 
n'est-ce pas mieux ? L'éditeur de l'ORIC vous les 
offrira désormais, pour peu que vous preniez le temps de 
taper le programme proposé. 


LIGNES JUSQU'A 254 CARACTERES 


1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

24 RESTORE :A=#A000 

25 REF'EAT : U=VAL ( " # 

34 DATAA6,E9,AO,04 

35 DATA22,F0,61 

36 DATA3Ü,90,04 

37 DATA18,A9,CO 

38 E>ATAOO ,A3,38 
38 DATAC8,99,00 

40 DATADO,02,85 

41 DATAC5,25,FO 

4 2 DATA 13,08,E6 

43 DATAOO,A3,10 

44 DATAA?,00,AO 

45 DATA20,00,AO 

46 DATAA5,9C,85 

47 DATA85,9C,85 

48 DATAE5,9C,A8 

49 DATAB1,91,91 

50 DATAC7,20,5F 

51 DATAC7, A4 ,9D 

52 DATAA1,85,9C 

53 DATA26,38,B9 

5 4 DATAAI) , 4A , A1 

55 DATA60,CA,10 

56 DATAAC,69,02 

57 DATACC, 68 ,C9* 

58 DATAF0,0C,C9 

59 DATA20,D9,CC 

60 DATA68, A 8 , 68 

61 DATAA3 , AA4G 

62 DATAE9,84,EA 

63 DATAOO,AO,A2 

64 DATA4C,B5,A1 

65 REM 


Jean -Fr- anco i s WADEL 


: X = PEEK ( #CAC 
"+U$):POKEA, 

, 84,2A,BD,00 


24 
C9 
85 
Fl 
A2 
2 A 
DB 
1 8 
B9 
f\'d 
84 
91 
93 
BO 
93 
C5 
84 
84 
01 
48 
05 
B .1 
7F 
20 
DO 
AA 
EA 
20 
04 
2 0 


, 2 A 
, 3 L/ 
, 19 
, 1 8 
B9 
38 
G8 
DO 
99 
85 
, 26 


U3 
G 8 
20 
CA 
9D 
A2 
AD 
20 
12 
FO 
90 
BF 
4C 
CB 
ES 
AO 
BO 


70,38 
90,28 
86, E9 
FO, Fl 
00 , A2 
E9,63 
99,00 
0 2 , E 6 
02, A2 
E 9,8 4 
20 , B3 
A5,CF,85 
A5,9D,69 
ES , C6 
DO , F9 
4B, Al 
90,01 
AZ, 05 
91 ,CE 
49 , A 1 
FO , CB 
29,7F 
DB , C9 
D3,9D 
EO , FC 
59 , Al 
20 


2F 
00 , AA 
A2 , S6 
CC , 6 8 


C9 
84 
CA 
, C9 
FO 
DO 
A 2 
, 1 9 
, 60 
, EA 
, C 6 
, 94 
, FF 
, 94 
, E6 
, EA 
,C8 
,B5 
, 88 
, 48 
, A2 
,C9 
, OD 
, 00 
, 90 
, E6 
,C8 
, FO 
, E9 
, 68 


A ) 
u : A 
, A3 
, 3F 
, EO 
,E8 
, 80 
, 3 B 
, 9D 
,E8 
, 28 
, 68 
, 1 8 
, 9 0 
, A5 
, 85 
, 18 
, 92 
, 1 8 
, 84 
, 2F 
, DO 
,60 
, 00 
, 20 
, FO 
, A3 
, CO 
, 1 7 
, 20 
, EC 
, 84 
, 4C 


READUt 


, C9 
, DO 
, AO 
, E6 
, DO 
, 38 
, 85 
, DO 
10 
8D 
, AD 
, 44 
CE 
, 9D 
65 
, E6 
A 5 
,C8 
, 9D 
, F8 
, DF 
20 
BO 
31 
, ES 
SA 
A2 
57 
, A 2 
, EA 


20 

, FO 

,42 

85 

25 

,C9 

04 

, A9 

, BA 

DO 

30 

,C9 

00 

, 84 

, 26 

A9 

E9 

, 85 

18 

, DO 

, 02 

E6 

19 

, BD 

30 

, 05 

, 26 

A4 

EO 

,E8 

E9 

, 3A 

, FO 

04 

C9 

, 57 

2 5 

, BD 

, 00 

A3 

FO 

, DF 

FO 

, A6 

,E9 

E6 

26 

, B1 

F 4 

, B1 

, 1 8 

DO 

BO 

, BD 

49 

, Al 

, 68 

8D 

4 A 

Al 

00 

, A3 

, AA 

20 

E2 

CA 

AO 

, 01 

, B1 

CE 

85 

.92 

88 

> F 1 

, CE 

18 

65 

9 G 

E5 

, CF 

, AA 

38 

A 5 

CE 

91 

, 90 

, 03 

C6 

92 

1 8 

94 

, CA 

, DO 

F2 

20 

08 

90 

, 85 

,C9 

65 

2 6 

85 

20 

, F4 

, G 3 

A5 

AO 

A4 

FF 

, Al 

, CA 

DO 

F8 

.A4 

20 

,08 

, C7 

20 

5F 

C5 

Al 

, AD 

, 05 

A 2 

FO 

FO 

ES 

,C5 

, G9 

01 

DO 

OD 

02 

, A 9 

, 09 

48 

20 

D9 

G 9 

, 03 

, FO 

29 

C9 

18 

EO 

, FF 

, 90 

07 

A9 

5 G 

48 

, 98 

, 48 

20 

9F 

FA 

00 

, AO 

, 00 

98 

9D 

00 

Al 

, A2 

, 00 

AO 

A3 

86 

FF 

, 86 

, A9 

90 

OE 

20 

4C 

, OC 

,C9 

20 

98 

AO 

Al 

, 55 

, 55 

5 5 

5 5 

FIN 


'IN" 

Le programme BASIC se 
charge d'implanter la rou¬ 
tine en langage machine 
qui porte la longueur du 
buffer clavier à 255 
octets. Bien entendu, tou¬ 
tes les fonctions de l'édi¬ 
teur restent disponibles : 
insertion, édition, correc¬ 
tion. Il est fait appel à 
quelques routines de la 
ROM qui, après modifica¬ 
tion, sont transposées en 
RAM. Le nouveau buffer 
clavier est implanté main¬ 
tenant à partir de # 
A200. 


66 REM ADAPTATION ORIC-1 

67 REM 

74 READAt:READU$ 

75 IFX=230THENREPEAT:A = VAL(A$) ;U=VAL(U$) :POKEA,U :READAî,U$ :UNTILA* = "FI N" 

76 DATA#A0AE,#98,#AÛB6,#DE,#A0FF,#33,#A102,#6F,#A 11 B,#F8,#A1 IC,#C3 

77 DATA#A13B,#33,#A13E,#6F,#A155,#9F,#A15A,#F8,#A16F,#12,#A 191 ,#12 

78 DATA#A19E,#12,#A19F,#F4,#A1B3,#99,#A1B5,#4E,#A1B6,#F1,#A 1B7,#02 
7 9 DATA#A1DB,#DD,#A1 DG,#C8,#A 1E4,#ED,#A1E5,#CB,FI N,FIN 

80 REM 


81 REM MISE EN PLACE ROUTINE 
8 2 REM 

S4 DOKE#1B,# A 1E3 : POKE# 1A,76B 
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De Patrice GUERRIN 


Pour rendre les explosions de vos 
missiles ou de vos bombes plus réa¬ 
listes, appeler le petit sous- 
programme suivant. Simple affaire 
de synchro du balayage TV. Mar¬ 
rant, non ? Au fait, ca marche en 
modes TEXT ou HIRÉS. 


I l 0000 REH EXPLOSI ON 

10010 EXPLODE 
10020 FOR M =1 TO 50 
.10030 PR INT CHR$ ( 152) ;CHR$ < 154 ) 
10040 NEXT 
10050 RETURN# 


BASCULE 40 COLONNES 

Les anciens manuels de l'ORIC indi¬ 
quaient comment, au moyen d'un 
simple CTRL [, il était possible de 
passer en affichage 40 colonnes, au 
lieu de 38. Ceci n'est plus indiqué 
maintenant et quelques utilisateurs 
le découvrent avec surprise. Notons 
que, dans ce cas, l'écran devient noir 
avec écriture blanche, les attributs 
couleur de début de ligne étant sup¬ 
primés. Merci à Alain Juzans de 
nous l'avoir rappelé. 


MORT AUX PARASITES 

Jean-Jacques Schiltz a résolu le pro¬ 
blème du "plantage" de l'ORIC lors 
de l'extinction du téléviseur (ou du 
moniteur), au moyen d'une simple 
VDR 250 V-20 A (voir les vendeurs 
de composants) installée aux bornes 
du primaire du transformateur d'ali¬ 
mentation. Depuis, plus de pro¬ 
blème, même lorsque le congélateur 
familial démarre ! 



RECOPIE ' TEXT ' 


Jean-François WADEL 



■ Deux lignes pour recopier l'écran "TEXT" de l'ORIC-1 ou de l'ATMOS : 
difficile de faire plus court, surtout si ça marche... et vite en plus ! Au fait, 
vous avez mieux ? 


La ligne 0 est nécessaire : elle force 
l'initialisation, en premier, de la 
variable A$, définissant ainsi sa 
place en RAM. Le reste est astu¬ 
cieux ZX = DEEK Ut 9c)... et on a 
(presque) son adresse ! On change 
sa longueur par POKE ZX + 2,40 et, 
dans une boucle, on change 
l'adresse de stockage (normalement 
à côté de HIMEM) en lui donnant 
une adresse correspondant à l'écran 
TEXT. LPRINT A$ fait simplement 
"sortir” les 40 octets correspon¬ 
dants. Suffisait d'y penser ! 


CAPS 

Ready 

LIST 


Ready 

!LOAD”TEXTCOPY 

Ready 

LIST 

0 A*="":ZX=DEEK(#9C> 

60000 POKEZX+2,40 :FORT = 48000T049119ST 
EP40 : DOKEZX + 3 ,T-: LPRINTA* : NEXTT 

Ready 

RUN 
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MISES A JOUR 

La dernière version d'HYPER- 
BASIC sortie est la version 2.0 b. 

Des faux bruits circulent sur une hy¬ 
pothétique version 2.0 c. 

Inutile donc d'appeler ORIC interna¬ 
tional pour se la procurer... 

Le numéro de la version est celui 
inscrit dans le copyright lors du re¬ 
set et non celui marqué sur l'étiquet¬ 
te, derrière la cartouche (même si 
ces deux numéros sont sensés 
être les mêmes, les aléas de la fabri¬ 
cation ont parfois fait inscrire un 
faux numéro au dos de la cartou¬ 
che). 

MANUEL DEVELOPPEUR 

Le manuel développeur du Téles- 
trat est disponible chez ORIC Inter¬ 
national, pour la modique somme 
de 190 francs. Tous les renseigne¬ 
ments sur le TELEMON, le STRAT- 
SED et la TELEMATIC sont ainsi 
regroupés, pour faciliter la program¬ 
mation en assembleur. 

STRATORIC, 
L'EMULATEUR ATMOS, 
ORIC-1 et MICRODISC 
pour TELESTRAT 

EDITEUR : ORIC International 
PRIX : 490 francs 
SUPPORT : Cartouche 
plus disquette 

Pour résoudre définitivement tous 
les problèmes de compatibilité 
ATMOS/ORIC - 1/TELESTRAT, 
Oric International vient de lancer l'ar¬ 
me absolue : une cartouche STRA¬ 
TORIC qui permet d'utiliser le SE- 
DORIC et tous les programmes 
développés autour du SEDORIC, 
sur le TELESTRAT. 

Il s'agit d'une très bonne affaire 
puisque pour 490 francs, on a droit 
à : 

-une cartouche d'émulation per¬ 


mettant de simuler l'ORIC-1 ou l'AT- 
MOS (ROM VI .1 ou V1.0), 

- une disquette SEDORIC stan¬ 
dard, 

- le manuel de l'ATMOS 

- le manuel du SEDORIC. 

Le tout pour le prix du SEDORIC 
seul ! 

Voyons de plus près cette cartou¬ 
che, ou plutôt ce "package". 

La cartouche intègre 48 Ko de 
ROM et se place dans le port gau¬ 
che du Telestrat, à la place de 
l'HYPER-BASIC. 

Il suffit de mettre sous tension le Te¬ 
lestrat, et le SEDORIC est mis en 
place automatiquement, puis on re¬ 
trouve le "Ready" familier des utili¬ 
sateurs d'ATMOS et ORIC-1. 

Par défaut, c'est la ROM de l'AT- 
MOS (vl.1) qui est activée. Mais il 
aurait suffit d'appuyer sur la touche 
1 lors de la mise sous tension pour 
obtenir la ROM de l'ORIC-1 (vl.0) à 
la place.A partir de ce moment, le 
Telestrat fonctionne exactement 
comme un Atmos ou un ORIC-1 
connecté à un Microdisc. 

Ainsi, il devient possible de passer 
ses programmes (déprotégés) de 
cassette à disquette, et d'exploiter 
tous ses programmes ATMOS ou 
ORIC-1 sur son Telestrat, qu'ils pro¬ 
viennent de cassettes ou de dis¬ 
quettes, même si on a abandonné 
son ATMOS au petit cousin. 

Mais-comment fonctionne la cartou¬ 
che STRATORIC ? 

En fait, la cartouche comporte les 2 
ROMs (VI.0, VI.1, deux fois 16 
Ko) recopiées de manière intégra¬ 
le. Elles contient aussi le SEDORIC 
(15 Ko) modifié pour s’adapter aux 
caractéristiques différentes du Te¬ 
lestrat. Ce SEDORIC est la version 
définitive 1.06. Il reste enfin un pe¬ 
tit kilo-octet pour faire les initialisa¬ 
tions et simuler la mise sous ten¬ 
sion d'un Microdisc. 

Donc le SEDORIC n'est plus char¬ 
gé à partir de la disquette mais 


déplacé à partir de la ROM, d'où un 
gain de temps appréciable. Il faut 
noter que les disquettes générées 
avec STRATORIC seront 100 % 
compatibles avec un Microdisc, et 
donc utilisables indifféremment 
avec STRATORIC ou un Microdisc. 
Voyons les quelques contraintes 
d'utilisation de l'émulation. 

Et tout d'abord une précaution à 
prendre : passer tous vos program¬ 
mes sur la face A de vos disquet¬ 
tes. En effet, le lecteur double face 
du Telestrat n'accepte pas que l'on 
rentre les disquettes à l'envers, et 
vous ne pourrez donc lire que la 
face A de vos disquettes. 

Ce n'est pas grave si vous conser¬ 
vez par ailleurs votre Microdisc, 
mais si vous vous en débarassez, 
prenez vos précautions ou allez 
voir votre revendeur ou un ami qui a 
conservé son Microdisc. 

(Signalons aux petits malin qu'il est 
impossible de lire la face B d’une 
disquette simple face avec un lec¬ 
teur double face, car la face B est 
lue "à l'envers".) 

En raison de caractéristiques techni¬ 
ques différentes, il est probable 
que certaines disquettes du com¬ 
merce protégées ne se lancent pas 
sur STRATORIC. 

Les disquettes au format Jasmin 
subissent les mêmes contraintes 
qu'avec SEDORIC : l'utilitaire CON- 
VERT permet de récupérer les fi¬ 
chiers en les transformant au format 
SEDORIC. Seuls les fichiers de 
données (accès direct et séquen¬ 
tiel ;) ne sont pas récupérables. 

Bien entendu, les disquettes Jas¬ 
min protégées ne se lanceront pas 
sur STRATORIC, pas plus que sur 
le MICRODISC. 

Les disquettes au format ORIC 
DOS VI.1 (s'il en reste !) sont aussi 
récupérables, et ce dans les mê¬ 
mes conditions que les disquettes 
Jasmin. 

N’oublions pas qu'avec la disquette 
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SEDORIC est donné un jeu d'arca¬ 
de M.A.R.C et quelques utilitaires, 
notamment ALPHA qui permet de 
classer par ordre alphabétique le ca¬ 
talogue d'une disquette. 

Le STRATORIC est donc un excel¬ 
lent achat, non seulement pour les 
anciens possesseurs d'ATMOS ou 
d'ORIC-1, mais aussi pour les pos¬ 
sesseurs de Telestrat qui veulent 
disposer d'un BASIC certes moins 
rapide mais aussi plus "standard" 
avec la ROM 1.1. 


L1SBAL, LOGICIEL 
D’EXPLOITATION 
DE LA BAL 

TYPE : Utilitaire TELEMATIC 
PRIX : 1000 francs 
SUPPORT : Disquette 
AUTEUR : Sylvain LEPINE 
EDITEUR : ORIC International 

La TELEMATIC intègre une BAL 
standard qui, si elle n'est hélas pas 
paramétrable, n’en est pas moins 
largement utilisée par les posses¬ 
seurs de Telestrat. En effet, faire 
une BAL complète avec une ges¬ 
tion de plus de 200 pseudonymes 
n'est pas à la portée de tout le 
monde, malgré un HYPER-BASIC 
orienté vers la gestion d’applica¬ 
tions télématiques. 

Toutefois, l'exploitation de toutes 
les données de la BAL n'est pas 
possible : changer des mots de pas¬ 
se, éditer les messages sur une im¬ 
primante, supprimer des BAL etc... 
Heureusement, il y a LISBAL ! Ce lo¬ 
giciel va vous permettre d'exploiter 
à fond les possibilités de la BAL ; 
vous pourrez en effet : 

- Consulter le répertoire de la boi¬ 
te aux lettres en mode local, avec 
de plus les mots de passe associés 
à chaque pseudo et éventuelle¬ 
ment le sortir sur imprimante. 

- Lire tous les messages et les im¬ 
primer, et ce de manière automati¬ 
que, le logiciel triant les messages 
par BAL, puis du message le plus 
récent au message le plus ancien. 
C'est l'idéal pour avoir une vue 
d'ensemble de ce qui se passe sur 
votre serveur, qui est peut-être de¬ 
venu une messagerie rose à votre 
insu (on peut toujours rêver). 


- Vous pouvez supprimer une boî¬ 
te aux lettres, et donc tous ses mes¬ 
sages associés, sans toucher aux 
autres boites aux lettres de votre 
messagerie. 

-Vous pouvez aussi, c'est l'utilisa¬ 
tion la plus intéressante du logiciel, 
consulter tous les messages d'une 
BAL précise (la vôtre par exemple) 
avec la possibilité d'édition sur impri¬ 
mante et/ou suppression du messa¬ 
ge une fois consultée. 

- Il est également possible de 
changer le mot de passe des pseu¬ 
dos de votre messagerie. 

-Vous pourrez aussi changer le 
type de la messagerie (accès res¬ 
treint/normal) et changer un mot de 
passe d'une messagerie à accès 
restreint, et ce bien entendu sans 
perdre les messages en cours. 
LISBAL est un logiciel complet, 
utile à tous les utilisateurs de la BAL 
standard de la TELEMATIC, résol¬ 
vant tous les problèmes d’impres¬ 
sion des messages et d'une ma¬ 
nière générale d'intendance d’une 
BAL. 


TELEKUBE : 

REVOILA LE RUBIK ! 

TYPE : JEU/REFLEXION 
PRIX : 200 francs 
SUPPORT : Disquette 
AUTEUR : Christian ROLLAND 
EDITEUR : ORIC International 

Le fameux jeu de Monsieur Rubik 
revisité à la sauce Telestrat donne 
un jeu de réflexion d'excellente 
facture. 

Le graphisme est très atrayant, le 
programme inclus même une auto 
démonstration du plus bel effet. 

Mais à quoi peut bien servir un rubik 
sur Telestrat, même s'il est joli ? Eh 
bien, mon bon monsieur, c'est très 
simple : TELEKUBE pense. En tou¬ 
te simplicité. 

Ce qui signifie que lorsque vous 
peinez dans la reconstituion de vo¬ 
tre cube, il suffit d'appuyer sur la 
touche A et l'ordinateur calcule 
pour vous les 2 ou trois prochaines 
rotations à effectuer, et ce sans se 
tromper, lui ! 

Ce logiciel vous fera passer des mo¬ 
ments agréables et gageons que 
vous deviendrez expert en Rubik's 
cube. 


NIBBLER, UN JEU 
INFERNAL 

TYPE : JEU D'ARCADE 
PRIX : 190 francs 
SUPPORT : Disquette 
AUTEUR : MAESTER 
EDITEUR : ORIC International 


Encore un nouveau jeu sur Teles¬ 
trat, écrit en assembleur, et ça se 
voit : il est très, très rapide. 

Après avoir patienté quelques se¬ 
condes devant un magnifique des¬ 
sin, l'écran de jeu apparait. Il s'agit 
d'un grand classique : dans un laby¬ 
rinthe infernal, modifié au fil des ta¬ 
bleaux bien entendu, vous dépla¬ 
cez un serpent qui doit manger des 
points de vitalité. 

Mais où le problème se complique, 
c'est que le serpent gourmand s'al¬ 
longe au fur et à mesure, et il de¬ 
vient à la fin très difficile de ne pas 
se "mordre la queue". 

La part tactique du jeu est donc 
prépondérante puisqu’il faut pren¬ 
dre garde à emprunter des chemins 
qui ne se terminent pas en culs-de- 
sac. 

On est aidé par le fait que le ser¬ 
pent s'arrête dès qu'il touche un 
obstacle, mais attention, le bonus, 
lui, n'attend pas, et lorsqu'il tombe à 
0, vous perdez une vie ! 

Un conseil toutefois, utilisez le Joys¬ 
tick de préférence au clavier. Un 
bon jeu, qui vous fera passer de 
bons moments à la recherche du 
meilleur chemin pour parcourir un la¬ 
byrinthe. 


TYPE : Langage pourTelestrat 
PRIX : 590 Francs 
SUPPORT : Cartouche 
AUTEUR : Pierre GRENET 
EDITEUR : ORIC International 

Le TELE-ASS est donc arrivé, 
mieux vaut tard que jamais. 

Il est vrai que le produit est d'excel¬ 
lente qualité. 

Le logiciel est livré sur cartouche, 
avec un manuel bien entendu, ce 
qui est un véritable confort pour un 
assembleur : même si votre beau 
programme se plante lamentable¬ 
ment, l'assembleur sera toujours là, 
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inaltérable. Que de temps de ga¬ 
gné ! 

Donc, l'assembleur prend place 
dans le port cartouche gauche, lais¬ 
sant libre le port droit pour l'exten¬ 
sion RAM 64 Ko . Bien entendu, la 
cartouche inclus aussi le TELE- 
MON et l'HYPER-BASIC. 

UN EDITEUR AUQUEL 
RIEN NE MANQUE ... 

Le premier contact se fait, comme 
d'habitude, avec l'éditeur et là, une 
excellente surprise nous attend : il 
est exactement semblable à celui 
du BASIC ! Un éditeur pleine page 
donc, avec les mêmes possibilités 
de déplacement automatique dans 
le programme sans taper LIST etc... 
Mais au fait pourquoi un éditeur ? 
Parce que TELE-ASS est un as¬ 
sembleur double passe, c’est-à- 
dire qu'il assemble des sources 
avec label etc. Il faut donc créer ces 
sources... 

Donc, l'éditeur est proche du BA¬ 
SIC, mais avec beaucoup de possi¬ 
bilités supplémentaires : par exem¬ 
ple, pour lister à partir d'un label, il 
suffit de faire LIST suivi du label, 
même si on ne connaît pas le nu¬ 
méro de la ligne . Ainsi, LIST LOOP 
listera à partir de la ligne contenant 
la définition du label LOOP. 

Il est possible de détruire un bloc 
complet de ligne (DELETE) ou de 
mélanger plusieurs programmes 
(MERGE), ce qui est très pratique 
pour se faire une bib^othèque de 
routines personnelles. 

Très utiles aussi sont les fonctions 
de recherche (SEEK) et d'échan¬ 
ges (CHANGE) de chaînes dans le 
programme.Par exemple, si on veut 
voir toutes les lignes qui contien¬ 
nent le label "XMENU" il suffit de fai¬ 
re SEEK "XMENU”,L et elles s'affi¬ 
chent, suivies du nombre total d'oc¬ 
currence du label. Pour changer 
tous les XMENU en ESSAI, il suffit 
de taper CHANGE "XMENU", 
"ESSAI”. Simple et puissant. 

Notons la présence de la comman¬ 
de RENUM qui vous permettra de 
renuméroter vos programmes avec 
toutes les fantaisies possibles. 

Enfin, toujours au niveau de l'édi¬ 
tion, saluons la présence de I 'ins¬ 
truction OLD qui permet de récupé¬ 
rer un source même après un RE¬ 
SET, chaud ou froid ! 


UNE GESTION 
DE DISQUE COMPLETE 

Le chapitre des instructions disque 
est aussi complet, avec SAVE 
(U/M/O), LOAD (avec l'option ,V qui 
permet de visualiser les adresses 
d'un fichier sans le charger et l'op¬ 
tion ,A adresse qui permet de char¬ 
ger un fichier à une adresse diffé¬ 
rente de celle à laquelle il a été sau¬ 
vé. 

BACKUP, DIR, LDIR, EXT, DEL, 
DELBAK répondent aussi présent, 
seul le COPY fait défaut, mais ce 
n'est pas grave, le BASIC est là 
pour faire les copies ! 

Notons, ce qui est bien pratique, 
qu'il est inutile de mettre les guille¬ 
mets autour des noms de fichier : 
SAVE ESSAI est équivalent à SA¬ 
VE "ESSAI". 

Voyons en vrac quelques comman¬ 
des d'ordre général : ?DEC ?HEX 
?BIN ?CAR qui permettent d'affi¬ 
cher respectivement une expres¬ 
sion en décimal, hexadécimal, bi¬ 
naire, ou ASCII. 

BANK permet de spécifier sur quel¬ 
le banque travaille le TELE-ASS 
(de 0 à 7) puisqu'il est capable de 
travailler indifféremment sur n'impor¬ 
te quelle banque. 

FPAGE, DPAGE, SLIGNE permet¬ 
tent de régler les paramètres de l'im¬ 
primante pour effectuer correcte¬ 
ment les sauts de pages afin d'obte¬ 
nir des listings propres. 

AZERTY, QWERTY, FRENCH, 
ACCSET, ACCOFF, TEXT, HIRES 
ont les mêmes fonctions qu'en BA¬ 
SIC. 

MOVE permet de déplacer un bloc 
mémoire, et ce sans aucune con¬ 
trainte. Il est meme possible de 
transférer un bloc d'une banque 
sur l'autre. Par exemple , MOVE 
#C000,#FFFF,B0,#C000,B1 
recopiera la banque 0 sur la banque 
1. Très pratique ! 


TOUS LES OUTILS DE 
DEBUGGING 

La partie mise au point des program¬ 
mes est aussi très complète : DE¬ 
SAS (LDESAS pour l'imprimante) 
permet de désassembler un pro¬ 
gramme, on s'en serait douté. 

DUMP (et LDUMP) s'occupent du 
classique affichage hexa/ASCII. 


MODIF est un utilitaire génial, 
n'ayons pas peur des mots, qui per¬ 
met de modifier une zone mémoire 
en pleine page : une page s'affi¬ 
che, dans laquelle vous vous dépla¬ 
cez avec le curseur. 

Il suffit de taper les nouvelles va¬ 
leurs là où le curseur se trouve et le 
tour est joué. On peut travailler en 
hexa ou en ASCII, et aussi bien en 
mode texte qu'en mode hires. Il est 
même possible de changer de.ban¬ 
que sans quitter le MODIF ! L’es¬ 
sayer, c'est l'adopter. 

CALL permet de lancer une rou¬ 
tine, avec passage éventuel de va¬ 
leurs dans les registres. 

VREG permet de visualier et/ou de 
modifier la valeur des registres du 
6502 (pour le prochain CALL par 
exemple). 

Le morceau de bravoure est sans 
conteste la commande TRA¬ 
CE. Parmi sa kyrielle d'options, ci¬ 
tons les principales : 

L'option E permet d'exécuter le pro¬ 
gramme en testant la validité de cha¬ 
que instruction et en spécifiant 
éventuellement un point d'arrêt. 
Ainsi, impossible que le programme 
se "plante". 

Si on ne précise pas d'option, c'est 
le feu d'artifice : chaque instruction 
exécutée va s'afficher, accompa¬ 
gnée dans une autre fenêtre par la 
valeur des registres du 6502 et en¬ 
fin dans une troisième fenêtre par 
les valeurs au sommet de la pile. 

Votre programme n'aura plus de se¬ 
cret ! 

Notons qu'il est possible d'exécu¬ 
ter ou non les JSR et de passer à 
tout moment au mode pas à pas 
pour les phases critiques. 


ET L'ASSEMBLAGE 
ALORS ? 

Venons-en maintenant à la partie as¬ 
sembleur proprement dite. 

Les labels ont 6 caractères maxi¬ 
mum et le nombre de labels n'est li¬ 
mité que par la place mémoire dispo¬ 
nible. 

Les valeurs décimales, hexdécima- 
les, binaires ou ASCII sont compri¬ 
ses, ainsi que plusieurs opéra¬ 
teurs : +, -, poids faible, poids fort 
etc. 
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L'assembleur comprend directe¬ 
ment les 500 labels de la documen¬ 
tation développeur, ce qui n’est 
pas le moindre de ses avantages et 
évite ainsi de commencer chaque 
programme par une liste d'équiva¬ 
lences. 

A propos de la documentation dé¬ 
veloppeur, précisons qu'elle est dis¬ 
ponible chez ORIC International 
pour 190 francs. 

L'ordre ORG permet de placer l'ob¬ 
jet créé à une adresse différente de 
celle d'exécution, on peut donc gé¬ 
nérer des objets qui prendront la 
place du source. Un regret tout de 
même, c'est qu'on ne puisse met¬ 
tre qu'un seul ORG par programme. 
On ne peut pas tout avoir... 

Tous les pseudos-mnémoniques 
sont là : BYT pour rentre directe¬ 
ment des valeurs (ASCII ou autres 
en mémoire), DBT et DFW pour ren¬ 


trer des labels dans l'ordre 6502 
(poids faible puis poids fort) ou in¬ 
verse (poids fort puis poids faible). 

La commande MINAS permet de bé¬ 
néficier de toutes les possibilités 
de l’assembleur double passe, mais 
ligne par ligne. Il est possible d'en¬ 
trer directement des mnémoni¬ 
ques, les labels du programme prin¬ 
cipal et toutes les expressions se¬ 
ront comprises. 

Voilà une commande Intéressan¬ 
te ! En effet, l'inconvénient d'un as¬ 
sembleur double passe est qu'on 
n'a aucune idée de l'adresse physi¬ 
que des routines que l'on écrit. Or 
le TELE-ASS reconnaît tout le 
temps les labels : faire DESAS 
LOOP est possible ; de même que 
CALL DEBUT etc. 

Le TELE-ASS est donc un program¬ 
me d'excellente qualité, recomman¬ 


dé aux amateurs avertis de sa puis¬ 
sance, autant qu'aux débutants, 
par les possibilités de mise au point 
et d'observations dont il dispose. 

NB : Le prix annoncé le mois der¬ 
nier était de 490 francs. Les pre¬ 
mières versions, vendues à ce prix 
là, étaient des cartouches "applica¬ 
tion" qui se mettaient à droite à la 
place de la TELEMATIC, empê¬ 
chant l'utilisation de la cartouche 
RAM 64 Ko. Alors que les nouvel¬ 
les versions incluent le TELEMON, 
l’HYPER-BASIC et le TELE-ASS 
dans une seule cartouche à gau¬ 
che, soit 48 Ko de ROM, ce qui ex¬ 
plique la différence de prix. 

Les acheteurs du TELE-ASS pre¬ 
mière version se verront échanger 
gratuitement leur cartouche s'ils 
achètent 18 cartouche extension 
RAM, ou contre un chèque de 100 
francs s'ils ne l'achètent pas. 



MODE MI-TEXT MI-HIRES 


Mais oui, il est possible de disposer 
d'un mode mi-TEXT mi-HIRES sur 
TELESTRAT et cela grâce à ce pro 
gramme. Le programme étant en 
Basic, tapez RUN. Une moitié de 
l'écran se colorie alors en rouge. 
Vous êtes maintenant en mode mi- 
TEXT mi-HIRES. 

Vous disposez, en haut, dans la par¬ 
tie qui est en rouge, de 1 26 lignes 
de haute-résolution et, en bas, de 
12 lignes de "basse-résolution" 
(TEXT). 

Mais, seulement, l'ordinateur n'ad¬ 
met normalement pas un mode mi- 
TEXT mi-HIRES. Il va donc falloir 
ruser et de la manière suivante : lors¬ 
que l'on utilisera une instruction 
fonctionnant en mode HIRES 
(DRAW, CURSET, CIRCLE...), il fau¬ 
dra faire POKE # 20D,1 28. Sinon, 
l'ordinateur croira que l'on est en 
mode TEXT. De même, lorsque l'on 
utilisera une instruction qui fonc¬ 
tionne en mode TEXT, il faudra faire 
POKE # 20D,0. 

Exemple : si nous voulons afficher 
un point en HIRES et une lettre en 
mode TEXT à l'écran, il faudra faire : 


POKE #20D, 128 pour passer en 
mode HIRES, puis CURSET100, 
100,1 pour afficher un point en 
HIRES, puis POKE# 20D,0 pour pas¬ 
ser en mode TEXT, puis PLOT20, 
20,"S" pour afficher un caractère. 
Le programme Basic qui fait le mode 
mi-TEXT mi-HIRES commence à par¬ 
tir de la ligne 60000, pour vous per¬ 
mettre de l'inclure à vos program¬ 
mes Basic. Il vous suffira de faire un 
GOSUB à ce sous-programme pour 
passer en mode mi-TEXT mi-HIRES. 
Il faudra aussi remplacer END à la 
ligne 60040 par RETURN. 

En ligne 60010, il y a PAPER 1, ce 
qui vous permet de différencier le 


Patrice GUERRIN 

mode HIRES en rouge et le mode 
TEXT en noir. Vous pouvez changer 
la couleur du papier HIRES et de l'en¬ 
cre, à condition de le faire juste après 
le HIRES de la ligne 60010. 

Le mode mi-TEXT mi-HIRES se 
décompose donc en 2 parties : 

La partie HIRES : c'est une surface 
240X126 points. Il faut faire 
POKE #20D, 128 pour y accéder. 
La partie TEXT : c'est une surface 
de 38X12 cases. Il faut faire 
POKE#20D,0 pour y accéder. 


60000 ' 


60001 ' 

MODE MI-TEXT MI-H IPI 

60002 ' 


60003 ' 

> PATRICE GUERRIN 

60004 ' 


60005 ' 

' 1987 

60006 ' 


60007 1 


60010 

H IRES:PAPER 1 

60020 

TEXT:PRINT @0,G;CHRt 

60025 

FOR I=#B3D8 TO #B3D8 

60030 

WINDOU 0,2,38,16,27 

60040 

CLS: END 


Les créateurs de jeux d'aven¬ 
ture (entre autres) apprécie¬ 
ront ce mode mi-TEXT mi- 
HIRES car il permet de mon¬ 
trer une image de l'action et 
d'afficher le lieu où l'on se 
trouve. De même, la taille de 
l'écran HIRES est diminuée 
par 2 ; cela permet donc de 
multiplier par 2 le nombre de 
dessins stockables sur une 
disquette. 

1 59 ) 

200:POKE 1,24:NEXT 
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Fabrice BROCHE 


CONDITIONS MULTIPLES!» 

Un bug de l'HYPER-BASIC empê¬ 
che de réaliser correctement les 
tests avec plusieurs conditions lors¬ 
que celles-ci ne sont pas de même 
type. 

Par exemple, IF A=12 AND 
A$="ESSAI" TH EN sera refusé par 
l'interpréteur, car l'interpréteur veut 
absolument que la première et la 
dernière expression soit de même 
type. 

Donc, pour contourner le problè¬ 
me, il suffit d'être encore plus bête 
que l'interpréteur et rajouter une 
condition neutre, de même type 
que la première. 

Par exemple, pour un AND :1F 
A=12 AND A$="ESSAI" AND 
TRUE THEN ... sera accepté par l’in¬ 
terpréteur. 

Pour un OR, la condition neutre 
sera FALSE : IF A=12 OR 
B$="TOTO" OR FALSE THEN ... 

Bien entendu, on peut tout aussi 
bien encadrer une expression nu¬ 
mérique par deux expressions al¬ 
phanumériques, bien que ceci soit 
moins pratique. 

CHAINE ET LOGIQUE 

Une valeur logique sur Télestrat, 
comme sur la plupart des ordina¬ 
teurs (à commencer par l'ORIC-1 et 
l'ATMOS, ce truc étant valable pour 
ces deux machines aussi), est en 
fait une valeur numérique. Un nom¬ 
bre est considéré comme ayant la 
valeur logique "VRAI” s'il est diffé¬ 
rent de 0 et est considéré comme 
ayant la valeur logique "FAUX" s'il 
est égal à 0. 


Les constantes TRUE et FALSE, 
qui valent respectivement 0 et 1, 
reflètent ces valeurs logiques. 
Contrairement à ce que l'on croit 
d'habitude, une chaîne peut aussi 
être considérée comme une entité 
logique. Dans ce cas, c'est la lon¬ 
gueur de la chaîne qui détermine 
sa valeur logique. 

Ainsi, une chaîne vide (longueur 0) 
aura une valeur logique FAUX, alors 
qu'une chaîne non vide, de lon¬ 
gueur quelconque, aura une valeur 
logique VRAI. 

Le petit programme suivant illustre 
ce principe : 

10 IF TRUE THEN PRINT "VRAI" 
ELSE PRINT"FAUX" 

20 IF FALSE THEN PRINT "VRAI" 
ELSE PRINT "FAUX" 

30 IF "" THEN PRINT "VRAI” ELSE 
PRINT "FAUX" 

40 IF "A" THEN PRINT "VRAI" 
ELSE PRINT "FAUX" 

Résultat : 

VRAI 

FAUX 

FAUX 

VRAI 

Pour arrêter au vol une liste, par 
exemple, la ligne suivante suffit : 

IF KEY$THEN GET Q$ 

En effet, si aucun caractère n'est 
frappé au clavier, KEY$ est faux et 
le programme passe à la suite. En 
revanche, si une touche a été frap¬ 
pée au clavier, KEY$ est considéré 
comme vrai et le GET Q$ est exé¬ 
cuté, attendant qu'une nouvelle 
touche soit pressée pour continuer 
l'exécution du programme. 


DETECTION D’APPEL 

.... 

Les versions HYPER-BASIC 2.0a 
et inférieures comportent un bug 
pouvant affecter la détection d'ap¬ 
pel, aussi bien en mode TELEMA- 
TIC que par l'ordre RING. 

En effet, la gestion permanente 
des ports souris et joystick interfé¬ 
rait avec la détection d'appel, aussi 
bizarre que cela puisse sembler. 

Pour résoudre ce problème, il suffit 
de supprimer la gestion de la souris 
et du joystick. 

Un POKE #28C,0 résoudra ce pro¬ 
blème. Pour les serveurs en mode 
TELEMATIC, faire le POKE en BA¬ 
SIC et relancer la TELEMATIC par 
APLIC0. 


Ce n' est pas une nouveauté, mais 
on y pense rarement : pour les sai¬ 
sies de choix, il est important de ren¬ 
dre la saisie indépendante du mo¬ 
de minuscule ou majuscule. 

Or, l'instruction UP$ remplira ce rô¬ 
le : une ligne du type GET C$: IF 
c$="0" OR C$=”o" THEN ... sera 
avantageusement remplacée par la 
ligne :GET C$:IF UP$(C$)="0" 
THEN... 

fl RECTIFICATIF 

Dans le précédent numéro, une er¬ 
reur s'est glissée dans le truc "IM¬ 
PRIMANTE RS 232 OU CENTRO¬ 
NICS". L'adresse concernée était 
#28A et non pas #28C donc, 
POKE #28A,132 et l'imprimante 
est redirigée sur le port série et 
POKE #28A,128 et tout rentre 
dans l'ordre. 
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TELE-FORTH VU 


/il ^ 


Langage 

pour ORIC-TELESTRAT 


Livré en cartouche ROM avec un 
manuel de 75 pages, voici enfin le 
FORTH tant attendu pour votre 
TELESTRAT. Impatient, j'insère la 
cartouche à la place de celle de l'HY- 
PER-BASIC et je mets mon TELES¬ 
TRAT sous tension. Comme d'habi¬ 
tude, j'insère une disquette forma¬ 
tée, et la bannière habituelle du 
TELESTRAT m'annonce "64 Ko 
RAM, 32 Ko ROM, TELEMON v2.3, 
STRATSED v2.0a, TELE-FORTH 
vl.1", puis j'obtiens la bannière 
FORTH "TELE-FORTH VI.1 
40900 octets libres". 

- Premier bon point : avec 40 Ko, 
on est à l'aise en FORTH (par exem¬ 
ple l'éditeur de lignes et le program¬ 
me de démonstration intégrés à la 
ROM prennent chacun tout juste 
1 Ko). 

- Deuxième bon point : avec un 
FORTH en ROM, il n'y a aucun ris¬ 
que de détériorer le langage et au¬ 
cun temps d’attente pour le lance¬ 
ment. 

Je suis déjà curieux de voir de 
quelles performances est capable 
ce FORTH ; essayons un million de 
boucles vides (j'ai mis en gras les ré¬ 
ponses de TELE-FORTH) : 

:TEST(~) 10000 DO 10000DO 
LOOP LOOP ; TEST Ok.O 

TEST dure 134 secondes, soit 134 
microsecondes par boucle vide (mê¬ 
me HYPER-BASIC, pourtant un BA¬ 
SIC compilé, prend 400 microse¬ 
condes par boucle FOR...NEXT 


vide) et TEST ne prend que 35 oc¬ 
tets en mémoire: 

HERE ' TEST NFA -. 35 Ok.O 

Petit gadget bien utile: l'habituel 
OK donne également la base de 
conversion des nombres (un point 
pour "décimal", un # pour "hexadé¬ 
cimal", un % pour "binaire", une 
étoile pour les autres bases). 

Sur les 32 Ko de ROM, 16 Ko sont 
occupés par TELEMON (le moni¬ 
teur, programme de gestion du 
"hardware" du TELESTRAT), il res¬ 
te donc 16 Ko pour TELE-FORTH 
(un FORTH standard prend environ 
8 Ko). Je tape VLIST pour obtenir la 
liste des mots connus du FORTH : 
j'obtiens trois écrans à raison de 5 
mots par ligne, soit environ 400 
mots (le FORTH standard en re¬ 
commande environ 180) ! L'eau me 
vient à la bouche : il faut que j'ouvre 
le manuel pour savoir... 

Christophe LAVARENNE, le con¬ 
cepteur de TELE-FORTH et auteur 
du manuel, a voulu accrocher le 
lecteur dès la première page : sous 
le titre "UNE SEULE PAGE POUR 
CONVAINCRE...", on lit: 

Je n'ai plus à adapter au langage ma 
manière de penser : 

Avec FORTH, j'adapte le langage à 
ma manière de penser. 

Belle maxime, il est vrai, car FORTH 
est un des langages par excellence 
qui permet de développer son pro- 
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pre langage. Le "fortheur" passe le 
plus clair de son temps à définir de 
nouveaux mots du langage à partir 
des mots précédemment définis, 
jusqu'à définir "le" mot qui représen¬ 
tera son application. Au fur et à me¬ 
sure des nouvelles définitions, les 
mots, d'outils d'abord généraux, se 
spécialisent de plus en plus dans le 
domaine spécifique de l'applica¬ 
tion. Le programme de démonstra¬ 
tion intégré à la ROM, entièrement 
commenté et listé à la fin du ma¬ 
nuel, dans un but didactique, don¬ 
ne un bon exemple de la démarche 
de conception d'un programme : 
d'abord choisir l'organisation des 
données, leur implantation mémoi¬ 
re et l'algorithme de traitement, puis 
écrire les fonctions de création et 
d'accès aux structures de don¬ 
nées, les fonctions d'entrée-sortie 
dépendantes de la machine et, en¬ 
fin, implémenter l'algorithme de trai¬ 
tement. C'est la démarche classi¬ 
que de tout bon programmeur, me 
direz-vous, mais en FORTH il est 
possible de réaliser ces différentes 
étapes de manière particulièrement 
aisée et élégante, vous rétorquerai- 
je ! 

Bon, revenons à la première page 
du manuel. J'apprends que ce ma¬ 
nuel n'est pas un cours de program¬ 
mation en FORTH ; en effet, côté 
didactique, le manuel n'est pas vrai¬ 
ment fait pour enseigner le FORTH, 
bien qu'un lecteur assidu, tapant 
les exemples au fur et à mesure de 
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sa lecture du manuel, finira, surtout 
s’il connaît déjà un autre langage, 
par se familiariser avec les concepts 
FORTH ; pour les débutants, il est 
conseillé d'acquérir un des ouvra¬ 
ges recommandés dans la bibliogra¬ 
phie (laquelle propose une sélec¬ 
tion en fonction de la bourse de 
chacun). Par contre, et c’est une 
première sur le marché des micros, 
je lis que le manuel donne les sour¬ 
ces complets utilisés pour générer 
TELE-FORTH avec un "métagéné- 
rateur" (programme écrit en FORTH 
permettant de générer un FORTH 
pour une autre machine) ; en par¬ 
courant le manuel, je vois que mê¬ 
me les primitives sont listées, en 
assembleur FORTH : ainsi, aucun 
doute possible sur le fonctionne¬ 
ment d'un mot, sa définition exacte 
étant listée et commentée avec un 
exemple d'utilisation. Enfin, et voilà 
mes 400 mots, toutes les instruc¬ 
tions spécifiques du TELESTRAT, 
accessibles à travers le moniteur, 
gestion des disquettes, des 
entrées-sorties, sonores, graphi¬ 
ques et même télématiques, 
sont accessibles par des mots 
FORTH de même nom que leurs ho¬ 
mologues BASIC. TELE-FORTH 
profite donc de toute la puissance 
du TELESTRAT : encore un bon 
point. 

"POUR CEUX QUI AIMENT 
FORTH", me dit le paragraphe sui¬ 
vant, il y a même les extensions ha¬ 
bituelles sur 32 bits, l'instruction 
CASE et, en plus, de^ opérateurs 
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de manipulation sur bits, les vec¬ 
teurs "DEFER" du FORTH83, un 
décompilateur, la possibilité de 
créer un fichier de démarrage (indis¬ 
pensable pour une version FORTH 
en ROM), au total plus de 500 
mots, dont une centaine regroupés 
dans plusieurs vocabulaires ; j'es¬ 
saye immédiatement le mot VOC- 
LIST qui me donne la liste des voca¬ 
bulaires, j'obtiens "LIFE EDITOR 
IOS WINDOWS GRAFX SOUNDS 
FORTH". 

LIFE contient les mots du program¬ 
me de démonstration, "jeu de la 
vie, fonctionnant aussi bien en mo¬ 
de texte qu'en mode haute réso¬ 
lution, dans une implémentation 
originale sans effet de bords", que 
je vous laisserai découvrir dans le 
dernier chapitre du manuel ; EDI¬ 
TOR, c'est l'éditeur classique, de li¬ 
gne malheureusement (peut-être 
n'y avait-il pas assez de place en 
ROM pour un éditeur pleine page, 
mais des générations de fortheurs 
s'en sont contentés). 

Heureusement, un éditeur pleine 
page sera disponible sous peu sur 
disquette avec un macro-assem¬ 
bleur FORTH et une librairie de cal¬ 
cul en virgule flottante ; ces trois uti¬ 
litaires seront fournis sous forme de 
modules relogeables dynami¬ 
quement, un autre "plus" de ce 
FORTH décidément bien équipé. 

Les modules relogeables, explique- 
t-on au paragraphe suivant "POUR 
LES PROFESSIONNELS", permet¬ 
tent de créer des applications d'un 
volume supérieur à la mémoire 
disponible, en divisant le program¬ 
me en plusieurs segments relogea¬ 
bles dynamiquement. Un chapitre 
est consacré aux modules relogea¬ 
bles qui permettent de sauvegar¬ 
der un programme sous forme 
précompilée, plus rapidement char- 
geable en mémoire que par ré¬ 
interprétation des sources créées 
par l’éditeur sur disquette. Enfin, 
avec le macro-assembleur, lui- 
même relogeable pour pouvoir ré¬ 
cupérer son espace mémoire après 
utilisation (avant de créer un modu¬ 
le relogeable par exemple), seront 
fournis des outils d'analyse statisti¬ 
que automatique des fréquences 
d'utilisation des mots, permettant 
"de minimiser les efforts d'améliora¬ 


tion de performance" en redéfinis¬ 
sant en assembleur les mots les 
plus fréquemment utilisés. Le méta- 
générateur et les sources qui ont 
été utilisés pour générer TELE- 
FORTH en ROM sont même propo¬ 
sés aux professionnels qui envisa¬ 
geraient de générer en FORTH des 
applications en ROM pour le 
TELESTRAT. 

Les mots sont regroupés par fonc¬ 
tion dans chaque chapitre du ma¬ 
nuel : opérateurs de piles, opéra¬ 
teurs mémoire, opérateurs logi¬ 
ques, opérateurs de comparaison, 
opérateurs arithmétiques, conver¬ 
sion numérique... Tout y passe en 
une vingtaine de chapitres, y com¬ 
pris l'organisation mémoire et les 
mécanismes intimes de FORTH et, 
surtout, toutes les extensions spé¬ 
cifiques au TELESTRAT : interface 
moniteur et STRATSED, sons, gra¬ 
phiques, fenêtres, horloge... En 
bref, car on pourrait en dire encore 
long, ce manuel est une vraie mine 
d'or. 

En conclusion, TELE-FORTH est 
un outil très complet et visiblement 
conçu pour des applications profes¬ 
sionnelles (l'interface avec la cartou¬ 
che TELEMATIC est tellement pro¬ 
pre, que monter un serveur est de¬ 
venu un jeu d'enfant). Il y a fort à 
parier qu'un bon nombre des futu¬ 
res applications pour TELESTRAT 
seront développées avec ce langa¬ 
ge d'une richesse exceptionnelle. 

• Fiche technique 
TELE-FORTH 

- langage de programmation 
FORTH au standard FIG ; 

- nombreuses extensions, au total 
500 mots ; 

- interface très complète avec le 
moniteur, le DOS et la cartouche 
TELEMATIC ; 

- segments précompilés relogea¬ 
bles dynamiquement ; 

- manuel de référence détaillant la 
totalité des sources ; 

-utilitaires bientôt disponibles (sur 
disquettes, en modules relogea¬ 
bles) : macro-assembleur, éditeur 
pleine-page, calcul en virgule flot¬ 
tante ; 

- prix de vente (cartouche ROM et 
manuel TELE-FORTH 75 pages) : 
490,00 F TTC. 
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TELE-FORTH 

Point de vue d'un Forthien 


Michel ZUPAN 



Le TELE-FORTH, c'est du Forth, donc c'est génial ! 
Le mariage du TELESTRAT et du FORTH est particu¬ 
lièrement réussi. Côté Forth, nous disposons d'un 
super-FIG étendu ajoutant au vocabulaire standard, ri¬ 
goureusement orthodoxe, un grand nombre de con¬ 
cepts Forth modernes. Saluons les mots vectorisés 
ou différés, les structures de contrôle élargies, les opé¬ 
rateurs sur chaînes. Une mention spéciale pour les mo¬ 
dules précompilés relogeables : c'est une prouesse 
en 6502 d'autant plus méritoire que le concepteur a 
choisi avec raison l'adressage absolu dans les branche¬ 
ments Forth. 

Ne boudons pas le choix du FIG plutôt que celui du 
dernier standard Forth-83 : les débutants n'auront 
aucun mal à trouver des ouvrages d’initiation et de dé¬ 
veloppement en français. De plus, la documentation 
du TELE-FORTH est irréprochable ! 

En ce qui concerne les facilités d’utilisation, le TELE- 
FORTH est un peu austère. Nous regrettons l'absen¬ 
ce des commandes de contrôle directes ou les tou¬ 
ches de fonction. L'éditeur incorporé est ce bon vieil 
éditeur de lignes de Bill RAGSDALE qui équipe abso¬ 
lument tous les Forth pour ORIC. L'éditeur plein-écran 
et l'assembleur ne sont pas encore disponibles, mais 
signalons que l'éditeur SCREENS du F83 ou le macro¬ 
assembleur standard fonctionne parfaitement. Le 
compilateur est un peu rustique et il manque un désas- 
sembleur. Austérité encore le seul noir-et-blanc en mo¬ 
de TEXTE, bien que le moniteur prévoit bien un mode 
38 colonnes avec attributs d'écran dans les colonnes 
protégées. 


Cette impression d'austérité du TELE-FORTH est pu¬ 
rement formelle : il est très facile d'y pallier et 
THEORIC ne manquera pas de publier les modules 
qui faciliteront la vie du télé-forthien. 

Côté TELESTRAT, Christophe LAVARENNE a fait 
très forth ! Toute la nouvelle puissance de l'ORIC con¬ 
coctée par Fabrice BROCHE est merveilleusement ex¬ 
ploitée. Non seulement nous disposons des entrées- 
sorties multicanaux bufférisées, du multifenêtrage, de 
l'horloge ou des fonctions vectorisées du moniteur du 
TELESTRAT, mais nous accédons d'un coup à une 
connaissance intime de la machine que l'HYPER- 
BASIC avait un peu laissée dans l'ombre. Le choix du 
langage en ROM permet de plus d'exploiter à fond la 
cartouche TELEMATIC : le TELE-FORTH n’a pas volé 
son nom ! • 

J'ai noté toutefois un point faible : l’interfaçage avec le 
STRATSED. Quelle curieuse idée d'avoir des pseudo¬ 
fichiers BASIC .DAT pour stocker nos précieux écrans 
Forth ! 77 secteurs pour conserver un fichier de 8 
écrans d'un kilo-octet, c’est à l'évidence deux fois trop 
et c'est plus lent ! Surprenant, car le STRATSED (en¬ 
core Fabrice BROCHE !) est fort convivial, bien structu¬ 
ré et autorise une gestion beaucoup plus simple et ef¬ 
ficace des fichiers Forth. Pour la version 2.0 peut- 
être... ? Mais passons sur ce détail : le TELE-FORTH 
avec sa ou ses disquettes dispose d'une confortable 
mémoire virtuelle et ça marche très bien, c'est l'essen¬ 
tiel ! 

En conclusion : 19 sur 20. La nouvelle machine 
FORTH, c'est le TELESTRAT : précipitez-vous ! 
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LAREN 


C e programme pour TELESTRAT est un utilitaire qui deviendra 
vite Indispensable à tous ceux qui désirent développer des logi¬ 
ciels pour cette machine. Malgré une publicité tapageuse, la 
renumérotation d'un listing brille par son absence dans l'Hyperbasic. 
Voici, en quelques lignes, le moyen d'y remédier avec, en prime, la 
possibilité d'éditer un listing des "Labels". 


1ère option : 

Renumérotation 

Les numéros de lignes à l'intérieur 
d'un programme (GOTO..., GO- 
SUB..., THEN..., BISE:.., ne sont 
pas modifiés d'où l'intérêt d'utiliser 
exclusivement les labels ; ainsi, un 
programme n'utilisant que les labels 
pourra être entièrement renumé¬ 
roté sinon le Télestrat affiche un 
message d'erreur "ligne Label... ab¬ 
sente" dès le premier listing RE- 
NUM demande le n° de la première 
ligne du programme renuméroté ; 
à défaut, celui-ci sera 10. 

A la fin de la renumérotation, après 
le message TERMINE !!, le pro¬ 
gramme donne le nombre de lignes 
puis propose l'autodestruction de 


LAREN ; à moins d'utiliser la 2e op¬ 
tion concernant les labels, il est pré¬ 
férable de répondre Oui ; dans le 
cas contraire, le programme renu¬ 
méroté est listé. 

2e option : 

Labels 

Ce programme propose le listing 
des labels utilisés avec leurs numé¬ 
ros de lignes. Une option impri¬ 
mante est prévue. 

A la fin de ce listing, une autodes¬ 
truction est également proposée. 

Utilisation 

Rentrer le programme LAREN puis 


faire SAVE "LAREN". 

Lorsque l'on veut l'utiliser à propos 
d’un programme A, charger d'abord 
A, puis faire MERGE "LAREN". 

LAREN, dont le 1er numéro est 
65000, viendra se juxtaposer au 
bout du programme A. 

Lors d'une renumérotation, seules 
les lignes du programme A sont re¬ 
numérotées. 

Lors du listing des labels, seuls 
ceux du programme A sont listés. 

Ce programme est adapté à la ver¬ 
sion 2.0 de l’hyperbasic. 

Je joins également un listing de 
LAREN, ainsi qu'un DUMP mé¬ 
moire pour expliquer la conception 
du programme. 


65000 3LAREN 

65010 CLEAR:CURSOR OFF:CLS: PRINT @5 

,3;"RENUMEROTATION -> Tapez 1" 

65020 PRINT @7,3.: "LISTING DES LABEL 
S --> Tapez 2" 

65030 GET R*:CURSOR SET 
65040 IF Rt = "2" THEN PRINT @9,3 .: " I 
MPRIMANTE ? (O/N* " .: : GET I t : I t=UPt ( I t ) 
:GOTO LABEL 

65050 IF R t < > '* 1 " THEN GOTO LAREN 
65060 3RENUM 

65070 CLSlPRINT @5,3.: "No de la prem 

iere ligne -> ? “lîINPUT N$ 

65080 N = VAL( N t ) : IF Nt = "" THEN N= 1 0 
65090 PRINT @7,3.: "Quel pas desirez 

vous-> ? “ ; : INPUT Pt 

65100 P=VAL(Pt)IIF Pt = " " THEN P=10 
65110 A=#800:CURSOR OFF 

65120 UH ILE NL<65000 

65130 L = PEEK(A) :DOKE A+1,N :A=A+L: N 

L=DEEK(A+1):N=N+P:K=K+1 
65140 WEND 

65150 PRINT ; PR INT " • TERMINE II": 

PRINT :PRINT " Ce programme contient 
"K" 1ignes":CURSOR SET 
65160 PRINT :PRINT " Destruction 
de LAREN ? (O/N) ";:GET Rt:Rt=UPt<Rt) 

65170 IF Rt = "O" THEN PRINT :PRINT : 
DELETE 65000 
65180 CLS:LIST : END 
65190 3LABEL 


65200 IF I$="0" THEN OPCH 0,14 
65210 CURSOR OFF:A=#800:CLS 
65220 3RECHLABEL 

65230 SEI :A = A + L:L = PEEK(A) :NL = DEEK(A 

+ 1 ) 

65240 IF NL=65000 THEN GOTO FINLABE 
L ELSE C00=DEEK(A+3):D=DEEK(#7FD) 

65250 IF COOOO THEN GOTO RECHLABEL 
ELSE CODE=DEEK(A + 5) 

65260 3AFFILABEL 
65270 AD=DEEK < D+4) 

65280 IF ADOCODE THEN D=DEEK ( D ) : GO 
TO AFFILABEL 

65290 ' Aff ichage du No de 1 igné et 
du label 

65300 PRINT NL.: SPGt ( 1 0-LEN ( STRt ( NL ) 

))1I1=0 

65310 REPEAT 

65320 Ct = GHRt(PEEK(D+7+I )) 

65330 IF DEEKCD+I+B) ONL THEN PR IN 

T Ct.: ELSE PRINT Ct 
65340 1=1+1 

65350 UNTIL DEEK(D+I+7)=NL: CLI : I F K 
EYt THEN GET ATt 
65360 GOTO RECHLABEL 
65370 3FINLABEL 

"65380 CLI : CURSOR SET : CLCH 0,14:PRIN 
T :PRINT " Destruction de LAREN ? ( 

O/N) 

65390 GET Rt :Rt=UPt(Rt) : IF Rt = "0" T 
HEN PRINT :PRINT : DELETE 65000 
65400 CLS 
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Jean-Jacques NICOLAS 


Iv 

|P Ils sont < 


Tous connaissez-vous beaucoup de faux amis ? 

Oui ? Merci pour eux ! 

Mais de faux ennemis ? 

Ils sont déjà plus difficiles à repérer ; mais moi, je peux vous en 
citer un : le BRK. 


Mais caisse à dire ? me répondrez- 
vous. 

Eh bien, empoignez votre ATMOS et 
tapez CALL # 500. 

C'est fait ? Hé bien voilà ce qu'est 
un BRK (vulgaris) : l'ATMOS est 
planté ! 

Explication : en #500 (ou 1280 
décimal) se trouve un octet nul (plus 
nul que lui, tu meurs I) ; un zéro 
quoi ! 

Voilà l'ennemi. 

Vous programmez (un peu, beau¬ 
coup, passionnément) en L.M. ; et 
quelquefois, pour des raisons tota¬ 
lement indépendantes de votre 
volonté, bien sûr, l'ATMOS se 
plante. 10 contre 1 que c'est un 
BRK ! 

Mais que fait donc ce BRK ? Il 
déclenche tout simplement une 
interruption. 

Ah ! Vous commencez à voir où je 
veux en venir. La suite, vous la con¬ 
naissez. Je résume : le 6502 empile 
PC (le pointeur de programme) et P 


(l'indicateur d'état), histoire de s'y 
retrouver à la sortie, puis il se bran¬ 
che sur la routine d'interruptions en 
# 244 (qui renvoie à # EE22 pour 
ATMOS) ; laquelle routine, conscien¬ 
cieuse comme c'est pas permis, 
commence par tester si on a vrai¬ 
ment affaire à une interruption. Si ce 
n'est pas le cas comme avec un BRK 
(tiens, ça rime), elle renvoie le 6502 
à la fin d'interruption : RTI en # 24A. 
Lequel RTI remet P et PC en place 
et le programme reprend... sur le 
BRK ! 

Maintenant, soit vous appuyez sur le 
reset, soit vous remontez à "La 
suite, vous la connaissez..." 

Je vois, à votre façon de faire 
"reset" (certains pros écrivent 
recette), que vos réflexes sont bien 
rodés, que vous êtes une personne 
aux décisions fermes et rapides, que 
vous avez une personnalité très 
adaptée à vous-même, que votre 
avenir est devant vous, votre passé 
derrière, pour mes honoraires, voyez 


ma secrétaire en sortant, merci ! 
Mais je mets gare (comme dirait le 
ministre des Transports). 

Oui, bon, je reconnais, je ne la ferai 
plus, promis ! 

Avez-vous remarqué, vous qui êtes 
un fin observateur, que nous som¬ 
mes passés deux fois par des vec¬ 
teurs en mémoire vive ? 

Et si l'on relançait la mode des 
détournements ? 

Il suffirait de tester, avant la routine 

# EE22, si l'on a affaire à un BRK et, 
dans ce cas, retourner au mode 
direct, en demandant poliment à 
l'ATMOS de nous indiquer où le BRK 
se trouve. 

Ainsi, le BRK serait moins 
antipathique. 

Mais, j'y pense, pour certaines rou¬ 
tines récalcitrantes, on pourrait met¬ 
tre quelques BRK bien placés et, 
grâce à eux, se livrer à quelques peti¬ 
tes vérifications. 

Bon sang, mais c'est bien sûr ! 
Tiens, le BRK deviendrait-il sympa ? 
Je dirais même, bien utile ? 

Eh oui, le vrai coupable est la routine 

# EE22 qui ne fait que la moitié de 
son boulot. 

Mais comment contrôler les 
registres ? 

Si on les affichait ayant de rendre la 
main ? 
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Autre chose : 

Je prends un exemple dit grossier : 
7000 LDX #00 
7002 INX 
7004 BNE 7000 

Que va-t-il se passer ? (THEORIC, 
c'est le suspense en plus) 

Quels sont les terribles événements 
qui attendent notre héros, le 6502, 
dans cette aventure délirante ? 
C'est ce que vous saurez en lisant 
la suite de ce texte hors pair (de 
claques). 

En 7000 X va valoir 0 
En 7002 X passe à 1 
En 7004 un test : si X n'est pas à 
0, on se branche en 7000. 

Vous avez compris : soit on fait 
reset, soit on retourne 
à "En 7000 


X... etc. etc. Et là, comment savoir 
où placer un BRK sans se livrer à des 
tâtonnements laborieux ? 

Or, pendant les interruptions (norma¬ 
les), l'ATMOS teste si vous appuyez 
sur une touche et met le résultat 
dans #2DF. 

Donc, si je me suis bien expliqué, en 
détournant la fin des interruptions, 
on peut tester si une "certaine” tou¬ 
che a été pressée. 

On pourrait choisir CTRL E qui est 
libre. 

Cette touche pourrait simuler un 
BRK et forcer le branchement sur la 
routine voulue. C'est vendu ! 

Donc, résumons : en 
cas de BRK, 


intempestif ou non, cette routine 
affiche tous les registres et rend la 
main. 

Si votre routine "boucle", CTRL E 
produit le même effet. 

Non, je vous en prie, il n'y a pas de 
quoi ! 

La routine est implantée en # 9800. 
Pour détourner les vecteurs d'inter¬ 
ruptions, tapez CALL #9800. 
Ensuite, tout est permis, y compris 
CALL #500. 

Pour l'assembler ailleurs, utilisez le 
listing désassemblé écrit pour le 
moniteur de J.P. Laurent paru dans 
le THEORIC n° 12. 

Salut ! 
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730 DATA 


DISK UBRARIAN 


François LETELLIER 


L f instruction !CAT du FTDOS permet de connaître instantanément 
les fichiers contenus dans une disquette. Par contre, le possesseur 
■ d'un JASMIN n'a aucun moyen de savoir sur quelles disquettes se 
trouve l'un de ses fichiers, à moins de les cataloguer une à une, tâche qui 
devient vite fastidieuse quand leur nombre augmente I 



DISK UBRARIAN permet de tenir à 
jour un catalogue de l'ensemble de 
ses disquettes et de leur contenu et 
de simplifier notablement les travaux 
de recherche de fichiers. Une fois 
l'ensemble des catalogues mémo¬ 
risé, l'utilisateur n'a plus besoin de 
faire une liste de ses fichier s ni de 
cataloguer manuellement ses dis¬ 
quettes lors de ses recherches, 
UBRARIAN se chargeant de toutes 
ces tâches. 

La configuration nécessaire com¬ 
prend un JASMIN modèle I ou II 
muni d'un ou plusieurs drives et 
exploité par le FTDOS 3-2. Le DOS 
2-1 ne convient pas en raison de 
l'absence d'instructions d'accès 
direct aux secteurs. LIBRARIAN est 
prévu pour s'adapter automatique¬ 
ment à l'ORIC-1 ou à l'ATMOS. 

PRINCIPE 

Une fois lancé, LIBRARIAN travaille 


sur le fichier principal, situé en 
mémoire centrale, dans lequel se 
trouvent les noms de tous les 
fichiers de l'utilisateur (dans les limi¬ 
tes de la mémoire disponible : le 
nombre de catalogues mémorisables 
se situe aux environs de 50), ainsi 
que leur extension, leur type, leur 
niveau de protection, leur taille et la 
disquette sur laquelle ils se trouvent. 
L'utilisateur peut effectuer 3 types 
d'opérations, mis à part la descrip¬ 
tion de la configuration utilisée : 
mémorisation des catalogues, 
recherche dans le fichier principal et 
sauvegarde du fichier principal. 

UTILISATION 

Au démarrage, une fois le menu affi¬ 
ché, l'utilisateur a le choix entre 12 
options, désignées par un caractère. 
La majorité d'entre elles nécessite 
l'appui sur une touche pour revenir 
au menu. Si cette touche correspond 


à l'une des options, celle-ci est exé¬ 
cutée directement sans passer par le 
menu. 

Option F -f FIN 

Sortie de LIBRARIAN 

Option R — REGLAGE DES 

PARAMETRES 

Permet de renseigner le programme 
sur les drives choisis pour la saisie 
des catalogues d'une part (drive 
''catalog'') et pour la gestion des 
sauvegardes du fichier principal 
d'autre part (drive "gestion”). L'uti¬ 
lisateur indique aussi le nombre de 
têtes du drive catalog (SF ou DF). 
Les sauvegardes du fichier principal 
sont créées avec l'extension .LIB, 
afin de les distinguer et d'éviter leur 
destruction intempestive. En effet, 
seul LIBRARIAN peut les détruire, le 
FTDOS ne les reconnaît pas. 

Au démarrage, le lecteur 1. est 
sélectionné en gestion et en catalog, 
option SF. La modification du poin¬ 
teur SF/DF affecte le drive catalog, 
mais aussi toutes les disquettes 
apparaissant dans le fichier principal. 
Une disquette enregistrée en DF et 
présentant alors 30 secteurs libres 
semblera en contenir -665 (!!!) en 
SF. 

MEMORISATION 
DES CATALOGUES 

Option D - CHARGER LE CATA¬ 
LOG D'UN DISK 

Stocke le catalogue de la disquette 
actuellement présente dans le drive 
catalog dans le fichier principal. 
L'utilisateur n'a aucune saisie 
manuelle à effectuer. L'opération ne 
prend que quelques secondes et les 
catalogues de 20 disquettes peuvent 
être mémorisés en moins de 10 
minutes sans risque d'erreur. Les 
titres de fichiers lus sont affichés sui¬ 
vis de la mention "CONNU" s'ils ont 
déjà été rencontrés sur d'autres dis- 
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quettes. Si la disquette actuelle a un 
nom de volume déjà présent dans le 
fichier principal, LIBRARIAN 
demande s'il doit ignorer le catalo¬ 
gue actuel ou effacer le précédent. 
La seconde solution permet de tenir 
à jour le fichier principal. 

Option M - SUPPRIMER UN DISK 
Cette option permet de supprimer un 
catalogue du fichier principal. Du fait 
de la structure de ce dernier, il peut 
se faire que certains noms de fichiers 
demeurent en mémoire sans les 
catalogues qui les contiennent. Tous 
les fichiers commençant par le nom 
fourni sont tour à tour proposés à 
l'utilisateur qui choisit de les suppri¬ 
mer ou non. 

RECHERCHES 

Option L - LISTE DES DISKS EN 
MEMOIRE 

Les noms de tous les catalogues 
apparaissant dans le fichier principal 
sont affichés. 

Option P - LISTE DES FICHIERS EN 

MEMOIRE 

Similaire à L. 

Option K - CATALOG D'UN DISK 
Affiche le catalogue d'une disquette 
du fichier principal. Comme pour M, 
seules les lettres du nom fournies par 
l'utilisateur sont significatives. 
Option T - DISKS CONTENANT UN 
FICHIER 

Une fois l'option sélectionnée, une 
grille comportant 13 cases s'affiche 
à l'écran. L'utilisateur peut remplir 
une partie ou la totalité de ces cases 
suivant les caractéristiques du fichier 
qu'il recherche. La première case 
correspond au niveau de protection 
(L/U), les 8 suivantes au nom, les 3 
suivantes à l'extension et la dernière 
au type du fichier cherché. Après 
appui sur RETURN, LIBRARIAN affi¬ 
che tous les fichiers ayant les carac¬ 
téristiques précisées, suivis du nom 
des disquettes où ils se trouvent. On 
peut ainsi chercher tous les fichiers 
verrouillés ou dont le nom com¬ 
mence par A, etc. 

Option ESC - CATALOG 
IMMEDIAT 

Affiche le catalogue de l'un des dri¬ 
ves sélectionnés au choix. 

GESTION DES SAUVEGARDES 

Option C - CHARGEMENT D'UN 
FICHIER .LIB 

Charge depuis la disquette gestion 
le fichier .LIB dont le nom est spé¬ 
cifié par l'utilisateur. 

Option S - SAUVEGARDE D'UN 
FICHIER .LIB 

Sauvegarde le fichier principal sur la 


disquette gestion sous le nom 
donné par l'utilisateur et l'extension 
.LIB. 

Option E - EFFACER UN FICHIER 
.LIB 

Efface le fichier .LIB de la disquette 
gestion dont le nom est fourni par 
l'utilisateur. 

FONCTIONNEMENT 

Le fichier principal comporte 3 
zones : dans la première, sont stoc¬ 
kés sur 8 caractères les noms des 
disquettes rencontrées, de sorte 
qu’ils n'y figurent qu'une fois ; dans 
la seconde, sont stockées les carac¬ 
téristiques des fichiers dans l'ordre 
de l'affichage de celles-ci ; la troi¬ 
sième, enfin, contient les liens entre 
les 2 premières zones : ce sont des 
groupes de 4 octets. Sur les 2 pre¬ 
miers, puis sur les 2 derniers sont 
respectivement stockés les numé¬ 
ros d'ordre de la disquette et du 
fichier en relation. Cette méthode 
évite de répéter les descripteurs de 
fichier et simplifie les options L, P, 
T. Elle a cependant 2 inconvé¬ 
nients : l'option M se trouve un peu 
complexifiée et la place occupée par 
un fichier passe de 1 5 octets à 1 9. 
Toutefois, cette méthode devient 
économique dès lors que plus du 
quart des fichiers sont au moins en 
double. C'est en général le cas chez 
un utilisateur prudent qui effectue 
des sauvegardes de ses fichiers 
précieux. 

Le programme lui-même comporte 
deux parties. La première est en LM 
et se situe entre $B000 et $B140. 
$B000 : recherche entre 2 limites 
d'un enregistrement (sur 8 ou 1 5 
octets) ayant certains octets en 
commun avec une zone de réfé¬ 
rence ; sert lors des recherches de 
disquettes ou de fichiers. 

$B030 : remplit de 0 la zone 
$ A000 - $B000. Cette zone sert au 
stockage des secteurs de catalogue 
lus sur le drive catalog. Les valeurs 
parasites pourraient gêner le fonc¬ 
tionnement du programme. 

$B049 : recherche d'un enregistre¬ 
ment au format lien entre deux limi¬ 
tes. Sert à trouver les fichiers con¬ 
tenus par une disquette ou les dis¬ 
quettes contenant un fichier. 
$B080 : routine accédant à l'over- 
lay. Autorise ou interdit l'emploi de 
l'extension .LIB suivant les valeurs 
de $B08C et $B09D. 

$BOAC : cette routine recalcule les 
valeurs correctes de |a première par¬ 
tie des liens après l'effacement d'un 
catalogue. Seul le rang des disquet¬ 
tes importe dans ces liens : le fait 


d'en supprimer une les décale. 
$B0E8 : affiche les caractéristiques 
d'un fichier. 

$B140 : routine de MOVE, utilisée 
pour déplacer des blocs du fichier 
principal. 

La seconde partie de LIBRARIAN est 
en BASIC et occupe 7.5 Ko. 

Ce programme est volontairement 
compact pour laisser de la place au 
fichier principal. Les différentes uni¬ 
tés sont repérées par des REMs et 
leurs fonctions ne doivent pas poser 
de problème au lecteur. 

Certains méritent tout de même 
d'être éclaircis : 

TY est une variable dont la valeur 
est $F42D sur un ORIC-1 et autre 
sur un ATMOS. 

DI, PR, Ll et Fl pointent respective¬ 
ment le début de la zone disquettes 
du fichier principal, la limite entre les 
zones disquettes et fichiers, la limite 
entre les zones fichiers et liens à la 
fin du fichier principal. 

Al, A2, A3 et A4 contiennent les 
adresses stratégiques d'une routine 
MOVE servant à déplacer des blocs 
du fichier principal. 

La routine de gestion des erreurs 
DOS est appelée en cas d'erreur 
détectée par IERRGOTO. Elle com¬ 
porte 3 points d'entrée en 650, 660 
et 670 suivant les fonctions qu'elle 
suit. Le FTDOS génère parfois une 
erreur là où il n'y a pas lieu. En ren¬ 
dant impossible le signalement d'er¬ 
reurs invraisemblables et en ren¬ 
voyant alors le programme à la ligne 
pointée par OU, cette disposition 
limite les conséquences de ce 
défaut. II peut cependant arriver 
qu'une commande ne soit pas exé¬ 
cutée sans plus de précisions : 
recommencer alors. 

La partie la plus complexe et la plus 
touffue est sans doute celle de char¬ 
gement du catalogue de la disquette 
actuelle. Plutôt que de détailler son 
fonctionnement, étroitement lié au 
format des disquettes JASMIN, 
nous invitons le lecteur à se référer 
à un ouvrage ou à des articles spé¬ 
cialisés concernant le FTDOS, afin 
de ne pas dépasser trop largement 
le cadre de l'article. 

Le fichier LIBRA1.BIN sera obtenu 
à partir du programme contenant le 
langage machine en lignes de 
DATA. Après avoir exécuté ce pro¬ 
gramme (et corrigé les erreurs éven¬ 
tuelles), sauvegarder la routine 
machine par 

SAVE"LIBRA1 .BIN,*B000, 

* B1 AF”. 

Cette routine sera appelée par le 
programme BASIC "LIBRARIAN”. 
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tfzm ç 

10 REM ******************* I 


20 REM * * 

30 REM * LIBRARIAN * 

40 REM *F.LETELLIER 08/86* 

50 REM * * 

60 REM ******************* 

70 !LOAD"LIBRA1. BIN " 

80 TEXT:GRAB 
90 IMK7IPAPERO 

ioo cls:clear:himem#2FFA 

110 REM * PRESENTATION * 

120 TY=DEEK(#FFFC) 

130 PRINT : PRINT" DISK LIBRARI 

AN" 

140 PRINT" -" 

150 IFTY=#F42DTHENPRINT" 

ORIC-1“ELSEPRI NT" ATMOS 

II 

160 PRINT;PRINT" (ECRIT PAR F.LET 

ELLIER)" 

170 REM * INITIALISATIONS * 

180 DE=#A000 

190 DI = #3000 :PR=#3000;LI = #3000:FI=#30 
00 

200 Al=#50:A2=#52:A3=#54IA4=#B140 
210 DOKE#B08C,#B09A;DOKE#B09D,#B0A8;C 
ALL#B080 

220 X=#CC12Iy=#ccod:z=#eoci 
230 !ERSET 

240 PL=41 ;NS=695;LC$ = "1.":LG*=LC$:F$ = 

Il C »» 

•*-> 

250 REM * ADAPTATION ORIC1 / ATMOS * 
260 IFTY=#F42DTHEN290 
280 X=#CCD9!Y=#CCD4:2=#E0C5 
290 D0KE#B12E,X ;DOKE#BOED,XIDOKE#BOF2 
,X :DOKE#BOF5,X ;DOKE#BOFE,X :DOKE#B11 2, X 
300 DOKE#B126,Z 

310 D0KE#B108,Y ;D0KE#B1OB,Y :D0KE#B115 
,Y :DOKE#B118,Y :DOKE#B11B,Y 
320 GOTO360 
330 REM * MENU * 

340 POKE#2F1,0:G0T0510 
350 CLS 

360 PRINT I PRINT ; PRINT"C - CHARGER UN 
FICHIER .LIE 

370 PRINT"S - SAUVER UN FICHIER .LIB 
380 PRINT"E - EFFACER UN FICHIER .LIB 
390 PRINT"D - CHARGER LE CATALOG D'UN 
DISK 

400 PRINT"L - LISTE DES DISKS EN MEMO 
IRE 

4 10 PR INT"P - LISTE DES FICHIERS EN M 
EMOI RE" 


420 PR INT"K - CATALOG D'UN DISK 
430 F’RINT"ESC CATALOG IMMEDIAT 
440 PRINT"T - DISKS CONTENANT UN FICH 
IER" 

450 PRINT"M - SUPPRIMER UN DISK 
460 PRINT"R - REGLAGE DES PARAMETRES" 
470 PRINT"I - SELECTION DE L'IMPRIMAN 
TE" 

480 PRINT"F - FIN" 

490 PRI NT : PR I NT" VOTRE CHOIX : "; : G 

ETK*: PRINTK $ 

500 REM * AIGUILLAGE EN FONCTION * 

* DU CHOIX * 

510 IFK$ = "F"THENDOKE#B08C,#B09A:DOKE# 

B09D,#B0A5:CALL#B080; 1 EROFF; END 
520 IFK $ = "C"THEN820 
530 IFK $ = "S"THEN900 
540 I FK$ = " D " THEN 1070 
550 IFK $ = "L"THEN14 90 
560 IFK $ = "K"THEN1670 
570 IFK$ =CHR$(27)THEN740 
580 IFKi = " F"THEN1560 
590 IFK$ = "T"THEN1890 
600 IFK$ = "E"THEN2260 
610 IFK$ = "M"THEN2330 
620 IFK$ = "R"THEN2560 

630 IFK $ = "I"THENGOT02700ELSEGOT0350 
640 REM * GESTION EN CAS * 

* D'ERREUR DOS * 

650 E=PEEK(#489) ; IFE=5THENPRINT"DISK 
PLEIN"IGOTO720 

660 E=PEEK(#489 ) ; IFE=8THENPRI NT"PROTE 
CTION D'ECRITURE":GOTO720 
670 E=PEEK(#489) ; IFE= 7THENPRINT"FICHI 
ER INEXISTANT";GOTO720 
680 IFE= 2THENPRINT"LE LECTEUR SELECTI 
ONNE N'EST PAS MONTEGOTO720 
690 IFE=10THENPRINT"ERREUR DU SYSTEME 
":GOTO720 

700 IFE=6THENPRINT"ERREUR E/S":G0T072 

0 

710 GOTOOU 

720 GETK$IGOTO340 

730 REM * * ** * * ** * ** * *** * ** * **** ** 

740 CLSlPR INT" CATALOGUE DU DISK A 
CTUEL" ; PRINT 

750 IFLG t =LC $ THENK $ =LC $:G0T079Ü 
760 PRINT"No DU LECTEUR :"; 

7 70 GETK* :N=VAL(K $) : I F(N <1)OR(N>4)THE 
N770 

780 PRINTKf:PRINT 

790 OU=340: IFIMTHEN!LCATK$: !ERRG0T068 
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0 

795 IF (IM = 0)THEN 1 CATK*: !ERRGQT0680 

800 PR INT, , , ,"-":GETK*:GÜT0340 

8 1 0 REM * * X X * T * * * * X X X * * * * * * * * XXX * 

320 CLSI FRI NT" CHARGEMENT D'UN F IC 

HIER .LIE 

830 FRINT : INPUT"NOM (SANS EXTENSION) 

; " ; N $ 

840 N* =LG* +N* + ".LIE" 

850 OU=870 

860 ILOADN*:IERRGOTO670 
870 DI=DEEK(#4 8D)+4 : FI=DEEK(#48F) : PR= 
DEEK< DI-4) : LI=DEEK< DI-2) 

880 GOTO350 

890 REM XXX X X X X X X X X X X X X X X X X X X X X X X 
900 CLS;PR INT" SAUVEGARDE DU FI CHIE 
R .LIS" : PR INT 

910 IFDI=FITHENPRI NT"IL N'Y A RI EN EN 

MEMOIRE" :GETK$:GOTO340 

920 I NPUT" NOM ( SANS EXTENSION ) I " N* 

930 DOKEDI-4,PR :DOKEDI -2,LI 

940 N$=LG*+N*+".LIE" 

950 OU=1010 

960 1 SEARCHN * ; IFPEEK <#489)01 THEN 1000 
970 PR INT"CE FICHIER EXISTE DEJA.PUIS 
-JE L'EFFA-CER ? (O/N) : " 

980 GETK $ : PR INTK $ : IFK $ < >"O"THEN 350 
990 GOTO1010 
1000 IERRGOTO680 

1010 N $ = N $ + ","+HEX*< DI-4) + ","+HEX*(FI 

) 

1020 OU =1050 
1030 ! SAVEN $ 

1040 !ERRGOTOôSO 
1050 GOTO350 

1060 REM *XXXXXXXXXXXXXXXXXXXXXXXX 
1070 CLSI PRINT" CHARGEMENT DU GATA 

LOGUE DU DISK ACTUE 

L":PRINT * 

1080 IFFI> =DETHENPRINT"PLUS DE PLACE 
EN MEMOIRE":GOTO350 
1090 FF=DE:CALL#B030 

1100 POKE#4SD,20;POKE#48E,1:DOKE#48F, 
FF ;POKE#48C,VAL(LC*> 

1110 OU=l130 

1120 ! RS ! IERRGOTO680 

1130 FF=FF+256: N* = "" ;FORI=-8TO-l ;N*=N 
$ +CHR* <PEEK(FF+I) ) ;NEXT 
1140 PR INT;PR INT" VOLUME : "N$:PR 

I NT 

1150 P=20:S=2 

1 160 POKE#4SD,P ;POKE#48E,S :DOKE#48F,F 
F ;POKE# 4 80,VAL(LC *> 

1170 OU =1190 

1180 'RS:'ERRGGT0680 

1190 PP=PEEK< FF+2) :PS=PEEK < FF+3) ; FF=F 
F + 2 5 6 

1 200 IFPS>OANDPS<18ANDPP<PLTHENP=PP; S 
=PS;G0T01160 


1210 AD=D1-8 

1220 REPEAT;NN$ = "" ;AD=AD+8 

1230 FORI=OT07INN* =NN$ +CHR*<PEEK<AD+I 

)):next:untiln*=nn*orad>=pr 

1240 IFAD> =PRTHEN1280 

1250 FR INT" DI SK DEJA ENREGISTRE DOI 
S-JE L'EFFA-CER ? (O/N) :";:GETK* 

1260 J=AD 

1270 PRINTK*: IFK$ = "O"THENGOSUB2460ELS 
E350 

1280 DOKEA1 , F'R ; DOKEA2, PR+8 ; DOKEA3 , FI - 
PR :CALLA4 

1290 FOR1=1T08;POKEPR-1+I,ASC(MID*(N* 
,1,1));NEXT 

1300 ND=INT( < PR-DI)/8) 

1310 PR=PR+8;LI=LI+8;FI=FI+8:LL=NS 
1320 AD=DE;POKE#B004,16:POKE#BOOC,255 
!POKEttBOOF,16 
1330 TR=6:AD=AD+256 
1340 N=PEEK(AD+TR) 

1350 IFN <> 85ANDN<> #4CTHENPRI NT : PRI NTL 
L"SECTORS FREE" : PRINT :GETK*:GOTO340 
1360 IFPEEK(AD+TR-2)> = PLTHEN14 5 0 
1370 LL=LL-DEEK(AD+TR+14) 

1380 DOKEO,AD+TR:CALL#B0E8 
1390 DQKE2,PR-16 

1400 DOKE4,LI:CALL#B000:J=DEEK(2) 

1410 IF J CL I THENPR I NT " CONNU " CHR $ ( 8 ) .: : 
GOTO1440 

1420 DOKEA1 ,LI !DOKEA2,LI + 16 !DOKEA3,FI 
-L I : C-ALLA4 

1430 DOKEA1 ,AD+TR:DOKEA2,LI :DOKEA3,16 
:GALLA4:FI=FI+16:LI=LI+16 
1440 PRINT :DOKEFI,ND :DOKEFI+2,INT<(J- 
PR)/16):FI=FI+4 

1450 TR=TR+18: IFTR> = 255THENTR=6:AD=AD 
+ 256 

1460 IFKEY*O""THENGETK* 

1470 GOTO1340 

1480 REM XXXXXXXXXXXXXXXXXXXXXXXXX 
1490 CLS: PRINT" LISTE DES DISKS EN 

MEM" : PRINT 

1500 IFDI=PRTHENPRINT"IL N'Y A RIEN E 

N MEMOIRE" : PR INT, ,, ,"-" :GETK$: GOTO3 

40 

1510 POKE#2F1,IM: PRINTINT( (PR-DI)/8)" 
DISK(S) :" : PR INT 
1520 FORI=DITOPR-1STEP8 
1530 FOR J = 0TO7 : PR I NTCHRf ( PEEK ( I + J ) ) .: : 
NEXT: PRINT 

1540 NEXT: PRI NT : PR INT, , , ,"-" :GETK $ 

:GQT0340 

1550 REM X #: X * X * X X X X X X X X X X X X X X X X * X X 
1560 CLS: PRINT" LISTE DES FICHIERS 

EN MEM" : PRINT 

1570 IFLI=PRTHENPRINT"IL N'Y A RIEN E 

MEMOIRE" : PRINT, ,,," -":GETK*:G0T03 

40 

1580 POKE#2F1,IM : PRINTINT((LI-PR)/16) 
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"FI CH I ER ( S ) : 11 ; PR INT 

1590 L=0 

1600 FORI=PRTOLI-1STEP16 
1610 DOKEO,I :CALL#B0E8: PRINT 
1620 L=L+DEEK(1+14) 

1630 KÎ=KEYÎ:IFKÎ>=" "THENGETKÎ 

1640 IFKî=CHR$(13)THENI=#FFFF 

1650 NEXT: PRINT : PRINTI NT(L/4)" Ko":PR 

INT,,,,"-":GETKî:GOTO340 

1660 REM *tt * #** t ** *** ******** **** 
1670 CLS: PRINT" CATALOGUE D'U 

N DISK" : PR INT 

1680 IFDI=PRTHENPRINT"IL N'Y A PAS DE 
DISK EN MEMOIRE":GETKÎ:G0T0340 
1690 INPUT"NOM DU DISK î"'Nî 
1700 FOR 1 = 1TOLEN(Nî) :POKE#B2FF+I,ASC( 
MIDÎ(Nî,I)):NEXT 

1710 POKE#BOOC,255 :POKE#BOOF,LEN(Nî) : 
POKE#B004 8 

1720 DOKE2,DI-8 :POKE#B04A,0 
1730 DOKEO,#B300;DOKE4,PR 
1740 CALL#B000!J=DEEK<2) 

1750 IF J CPRTHEN1770 

1760 POKE#BOOC,255 :POKE#B004,16:POKE# 

BOOF,16 : PR I NT, , , , "-" :GETKÎ:GOTO340 

1770 POKE#2F1,IM :PRINT:FORI=0TO7:PRIN 
TCHR î ( PEEK ( I + J ) ) : NEXT : PR I NT : PR I NT 

1780 M=INT((J-DI)/8);LL=695 
1790 DOKE2,FI :DOKE4,M:DOKEO,LI 
1800 CALL#B049 : I=DEEK<0> IIFI>=FITHEN1 
870 

1810 N=DEEK< I +2 ) * 16+PR:DOKEO,N 
1820 CALL#B0E8:PRINT:DOKEO,1+4 
1830 LL=LL-DEEK(N+14) 

1840 K î =KEY î! IFK î > = " "THENGETKî 
1850 IFKÎ=CHRÎ(13)THENJ=LI:GOTOl750 
1860 GOTO 1800 

1870 PRINT: PRINTLL" SECTORS FREE" :PRI 
NT :DOKE2,J:GOTO17 30 
1880 REM * 11 ** *** *** * *** t * ******** 
1390 CLS: PRI NT" DISKS CONTENANT 

UN FICHIER" ! PRINT 

1900 IFPR=LITHENPRINT"IL N'Y A PAS DE 
FICHIER EN MEMOIRE":GETKÎ;G0T0340 

1910 PRINT:PRINT" - - 

---" ; PRINTCHRÎ ( 1 1 )C-HRî (11).: 

1920 PRINT" FICHIER : ",::X=l:FORI 

= #B300TO#B30F:POKEI,0 :NEXT 
1930 GETKÎ:K=ASC(KÎ) : IFK=13THEN2060 
1940 IFK=127THENPOKE#B2FF+X,0 
1950 IFK=8THENGOSUB2000:GOTOl930 
1960 IFK=9THENGOSUB2030:GOTOl930 
1970 IFK=127THENGOSUB2000; PRINT" "Kî : 

:POKEDEEK(18)+PEEK(617)+ 40,45 : GOTO 1930 
1980 IF(X>13)ORK <32THEN1930 
1990 PRINTKÎCHRÎ (8) : POKEDEEK ( 1 8 )+PEE 

K(617)+40,32 :GOSUB2030:POKE#B2FF+X,K : G 
OTO1930 

2000 IF < X= 1 ) OR ( X= 1 3 ) THENPR I NTGHRî ( 8 ) 


: IFX=1THENPRINTCHRî(8)1 
2010 IFX>0THENX=X-4:PRINTCHRÎ(8)1 
2020 RETURN 

2030 I F ( X=0 ) OR ( X= 1 2 ) THENPR I NTCHRî ( 9 ) .: 

: IFX=OTHENPRINTGHRÎ(9)J 
2040 IFX <14 THENX = X +1 : PRINTCHRî< 9 > .: 
2050 RETURN 

2060 P0KE#2F1,IMLPRINT:PRINT 
2070 P0KE#B0 4A,2 :POKE#B004,16 
2030 POKEiBOOC,255 :POKE#BOOF,16 
2090 DOKE2,PR-16 
21OO DOKEO,#B300 :DOKE4,LI 
2110 CALL#B000:J=DEEK(2) 

2120 IFJ> =LITHENPOKE#BOOC,255 :POKE#BO 

OF,16:PRINT,,,,"-":GETKÎ:GOTO340 

2130 PRINT:DOKEO,J :CALL#B0E8:PRINT 
2140 M=INT( (J-PR)/16) 

2150 DOKE2,FI :DOKE4,M:DOKEO,LI 
2160 CALL#B049: I=DEEK(0) : IFI> = FITHEN2 
220 * 

2170 DOKEO,DEEK(0)+ 4 

2180 N=DEEK(I)*B+DI:FORK=0TO7:PRINTCH 
R î ( PEEK ( N+K ) ) : NEXT : PR I NT 

2190 K î =KEY î: IFK î > = " "THENGETKî 
2200 IFKÎ =CHRî(13)THENJ=LI 1GOTO2120 
2210 GOTO2160 

2220 K î =KEYî: IFK î > = " "THENGETKî 
2230 IFKÎ =CHRÎ(13)THENJ=LI :GOTO2120 
2240 DOKE2,J :G0T02100 
2250 REM t t * t * î: * * * * * * * t * * * * * * t * * * * 
2260 CLS:PRINT" EFFACEMENT D'UN FI 
CHIER .LIB" 

2270 PRINT:INPUT"NOM (SANS EXTENSION) 

: " Nî 

2280 NÎ=LGÎ+NÎ+".LIB" 

2290 OU=2310: ! DEL Nî 
2300 !ERRGOTO660 
2310 GOTO350 

2320 REM 11 * 11111 * 111 * * 11 * ** 111 * ** 
2330 CLS:PR INT" SUPPRESSION D'UN 

DISK":PRINT 

2340 IFDI=PRTHENPRINT"IL N'Y A PAS DE 
DISK EN MEMOIRE":GETKÎ:G0T0340 
2 3 50 INPUT "NOM DU DISK:".: N î 
2360 FOR 1 = 1TOLEN(Nî) :POKE#B2FF+I,ASC( 
MIDÎ(Nî,I)):NEXT 

2370 POKE#BOOC,255 :POKE#BOOF,LEN(Nî) : 
FOKE#B004,8 

2 380 DOKE2,DI -8 :POKE# B0 4 A,0 
2390 DOKEO,#B300:DOKE4,PR 
2400 CALL#B000:J=DEEK(2) 

24 10 IFJ <PRTHEN2430 

2420 POKE#BOOC,255 :POKE#B004,13 :POKE# 

BOOF,13 :PRINT, ,, ,"-" :GETKÎIGOTO340 

24 30 PRINT : FORI= 0TO7: PRINTCHRî(PEEK( I 
+ J ) ) .: : NEXT : PR I NT 

2440 PRINT"DOI S-JE L'EFFACER ? (O/N) 

: " : GETKÎ : PRINTKÎ : I FK î O 1 " O " THEN2390 

2450 GOSUB2460:GOTO2380 
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2460 M= INT(<J-DI)/8) 

24 70 DOKE2,FI :DOKE4,M:DOKEO,LI 

2430 CALL#B049: I=DEEK(0) : IFI>=FITHEN2 

520 

2490 POKE#B050,7 :POKE#B056,240 :CALL#B 
049 :POKE#B050,8 :POKE#B056,208 
2500 DOKEA1,DEEK(0) :DOKEA2,I :DOKEA3,F 
I-DEEK(0) : GALLA4 

2510 FI = FI-DEEK< 0) + I :DOKE2 , FI :DOKEO , I 
:GOTQ248Ô 

2520 DOKEA1 ,J + 8:DOKEA2,J ;DOKEA3,FI-J- 
3 : GALLA4:FI=FI-8:LI=LI-8 :PR=PR-8 
2530 DOKEO,LI :DOKE2,FI ;DOKE4,M:DOKE6, 
#FFFF:POKE#BOAD,1 :CALL#B0AC 
2540 RETURN 

2550 REM t * * * * * * * * * 11 * * * * # * * * * * * * # 
2560 GLS: PR INT" REGLAGE DES PARAMET 
RES" 

2570 PRIMT:PRINT"SIMPLE FACE / DOUBLE 
FACE (S/D) : "F$CHR$ (8) 

2580 GETFÎ : I FF $ <> " S " ANDF $ <> ,, D"THEN258 

0 

2590 PRINTF* 

2600 PL=41 :NS=695: IFF$ = "D"THENPL=32:N 
S=1390 


2610 PRINT:PRINT"LECTEUR SELECTIONNE 
(1-4) : " 

2620 PRINT" LECTURE DES CATALOGUES !" 
LC$CHR$ (8)CHR$ (8) 

2630 GETKÎ !N=VAL(K$ ) ,* IF(N<1 ) OR ( N> 4 ) TH 
EN2630 

2640 LC$ =K$ + "."I PRINTLC$ 

2650 PRINT" GESTION DE FICHIER .LIE : 
"LGSCHRS(8)CHR$(8)J 
2660 GETK*:N=VAL(K$):IF(N<1)OR(N>4)TH 
EN2660 

2670 LG $ =K $ + ".": PRINTLG $ 

2680 PRINT:PRINT:GOTO360 
2690 REM * 1 ** ** #* 111*11 ***** 1111*1 
2700 CLS: PRINT" SELECTION DE L'IMPR 
I MANTE" 

2710 PRINT:PR INT" TAPEZ <0> POUR CO 

NFIRMER" 

2720 GETK $ 

2730 IFK$ <>"O"THEN340 
2740 IM=128-1M 

27 50 IFIMTHENK $ = "IMPR"ELSEK $ =" 

2760 FOR1=1T04:POKE#BB9A+I,ASC(MID*(K 
U)): NEXT 
2770 CLS: GOTO360# 


10 A = #B000 : F=#B1 AF : L= 1 00 : REPEAT : FOR A=A TO A+IS.'READ C$ 

20 K=VAL("#"+C$) :S=S+K+65536*(S+K>65535) : IF A<=F THEN POKE A,K 
30 NEXT:READ D$:IF S=VAL <"#"+D$) THEN L=L + 5:UNTIL A>F: END 
40 PING : PR INT "Erreur ligne'ML 
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SUR VOTRE DOS 


DISQUETTE LOGIQUE 


Pierre CHICOURRAT 


N ous avons vu la dernière fois le formatage "hard" de la dis¬ 
quette, c'est-à-dire l'inscription sur le support d’informa¬ 
tions destinées au contrôleur afin de lui permettre de se repé¬ 
rer. Cependant, tout ceci ne suffit pas à organiser la disquette et à en 
assurer sa gestion "logique". En effet, une disquette doit aussi né¬ 
cessairement contenir (de manière interne) tout ce qui est destiné à 
en assurer une gestion convenable (gestion du directory, de la place 
occupée sur disque, des fichiers...). Cette opération s'appelle l'initia¬ 
lisation de la disquette et consiste à écrire sur le disque quelques in¬ 
formations qui permettront au DOS de se repérer. Nous allons au¬ 
jourd'hui voir ce dernier point préliminaire, avant d'étudier à partir 
du mois prochain les principales fonctions de gestion des i/o (input, 
output). 


- le nom principal du fichier (8 ca¬ 
ractères, c'est-à-dire le nom, éven¬ 
tuellement complété par des es¬ 
paces) ; 

- l'extension (4 caractères : le 
point plus trois caractères du nom 
de l'extension) ; 

- le mode d'accès au fichier (sé¬ 
quentiel ou direct, un caractère) ; 

- la longueur totale du fichier (en 
nombre de pages : 2 octets). 

Chacun de ces blocs codent un fi¬ 
chier, si toutefois ces deux pre¬ 
miers octets sont valides (c'est-à- 
dire désignent réellement une 
adresse), sinon, le bloc ne code 
pas un fichier (ceci permet de sup¬ 
primer à peu de frais une entrée 
dans un directory) : il suffit de met¬ 
tre à des valeurs "farfelues" (généra¬ 
lement : FF et 0) les deux premiers 
octets indiquant l'adresse du fi¬ 
chier), ainsi on n'a pas àfaire des dé¬ 
calages longs et souvent fort coû¬ 
teux en i/o. 

Cette structure de directory est 
donc claire et permet pour chaque 
fichier d'avoir une entrée vers la zo¬ 
ne dans laquelle il est stocké et de 
savoir son type. 

LE BIT MAP : 

Carte d'occupation de la disquette 


Les informations écrites au moment 
de l'initialisation de la disquette 
(fonctions init du DOS) sont de 
deux types : 

- l'initialisation du directory ; 

- la mise à jour du "Bit Map" (BM). 

INITIALISATION 
DU DIRECTORY 

La structure de directory est, au dé¬ 
part, formée d'une page (nous dési¬ 
gnerons par ce mot un secteur 
d'une piste et caractériserons une 
page par son adresse formée du 
couple (numéro de piste, numéro 
de secteur), à l'adresse (20, 2). 
Dans cette page, on trouve les infor¬ 
mations suivantes : 

« Deux octets pour indiquer l'adres¬ 
se de la page (dans le cas de cette 
première page, cette adresse est 
conventionellementzéro) ; 

• Deux octets de chaînage desti¬ 
nés à indiquer quelle est la page sui¬ 
vante du directory. Ceci permet de 


chaîner plusieurs pages et donc de 
ne pas limiter le nombre de noms 
de fichiers différents présents sur 
une disquette. On voit ici l'utilité 
des deux premiers octets qui per¬ 
mettent de savoir immédiatement 
quand on a une page de directory 
en mémoire, à quelle adresse était 
cette page. Quand il n'y a pas de pa¬ 
ge suivante, ces deux octets pren¬ 
nent la valeur FF (255 en hexa). Le 
DOS sait, au moyen de ce chaî¬ 
nage, grossir la structure d'un direc¬ 
tory (quand on ajoute des noms de 
fichiers et qu'il n’y a pas de place 
pour les mettre dans le directory 
actuel), mais il ne sait pas regagner 
de la place (ce qui n’est pas grave, 
un directory faisant peu de pages, 
on ne perd pratiquement rien). 

•Des blocs de 18 octets qui co¬ 
dent : 

- l'adresse de début du fichier (2 
octets) ; 

- le mode de lock du fichier (U ou 
L : 1 octet) ; 


Cette structure est formée d'une 
seule page (en 20,1) et donne l'é¬ 
tat d'occupation de chacun des sec¬ 
teurs de la disquette. Une piste est 
représentée ici par trois octets 
(donc 24 bits pour 16 secteurs, ce 
qui est largement suffisant !). Com¬ 
me il y a au maximum 82 pistes dans 
une disquette (double face : 41 x 
2), on a besoin de 82 x 3 = 246 oc¬ 
tets. Ceci nous en laisse donc 10 
de libres. On utilise alors les huit 
derniers de cette page pour stoc¬ 
ker le nom du volume et deux sont 
tout à fait inutilisés... 

Chaque secteur est ensuite codé 
sur un bit, si le bit est à 0, le secteur 
est occupé, s'il est à 1, il est libre. 
La répartition des bits associés à 
chacun des secteurs pour ces trois 
octets se fait de la manière sui¬ 
vante : 

-l'octet 1 code les secteurs 10 à 
17 (secteur 17 -> bit 0 droite) ; 

- l'octet 2 code les secteurs 2 à 9 
(secteur 9-> bit 0). 
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- l'octet 3 code le secteur 1. 

On utilise enfin le dernier bit du troi¬ 
sième octet (bit de poids le plus 
fort) pour coder si la piste considé¬ 
rée est entièrement pleine (afin de 
ne pas avoir à regarder tous les bits 
pour savoir si c’est le cas et donc, 
accélérer le traitement quand on 
est à la recherche d'une place libre 
sur disque (ce qui arrive très fré¬ 
quemment !). Pour ce bit la con¬ 
vention est qu'il est à 1 si la piste 
est pleine, à 0 sinon. 

Ce secteur est un secteur clé de la 
disquette, son altération peut en¬ 
traîner la perte irréparable de fi¬ 
chiers (puisqu'à ce moment là, on 
croira libre des places déjà oc¬ 
cupées. Remarquez aussi que sa 
modification ne peut se faire que 
par des routines écrites en L. M (tel¬ 
les que celles que nous avons déjà 
présentées), puisque toutes les 
commandes du DOS modifiant l'é¬ 
tat du disque (par exemple WS), 
chargent d'abord ce secteur en mé¬ 
moire, modifie le disque et le sec¬ 
teur en mémoire en exécutant la 
commande, puis réenregistre ce 


secteur sur le disque. Ainsi, si on 
tente de faire un !WS en le faisant 
écrire en (20, 1), la dernière opéra¬ 
tion aboutira à restaurer en fait le 
BM. 

Voilà pour les deux structures 
logiques permettant d’organiser la 
disquette. Voyons maintenant l'or¬ 
ganisation des fichiers à accès 
séquentiels (typiquement un pro¬ 
gramme BASIC, nous nous limite¬ 
rons à ceux-ci, les fichiers à accès 
directs ayant été maintes fois pré¬ 
sentés et T-DOS 3.2 ne faisant guè¬ 
re preuve d'originalité). 

Un fichier est composé de deux par¬ 
ties : 

- des secteurs de liens chaînant 
les secteurs de données ; 

-des secteurs de données qui 
contiennent chacune des pages 
de la zone mémoire sauvée. 

Un exemple des trois premiers sec¬ 
teurs d'un fichier (secteur de liens, 
et deux secteurs de données) 
vous est présenté en figure 2. Le 
secteur de liens est constitué ainsi : 

- Les deux premiers octets ser¬ 
vent de chaînage vers le secteur 
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Deux secteurs de directory 
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F0 

55 

43 

4F 

50 

59 

31 

28 

28 

28 

2E 

53 

43 

52 

53 

86 

00 

UC0PY1 .SCRS.. 


de lien suivant (ou sont respecti¬ 
vement à FF et 00 s’il n'y a pas une 
autre page de lien). 

- Les quatre octets suivants dési¬ 
gnent adresse de début et de fin 
de la zone sauvée (ou sont suppri¬ 
més s'il ne s'agit pas du premier 
secteur de lien d'un fichier donné, il 
était en effet inutile de répéter plu¬ 
sieurs fois la même information) 

- Puis, les uns à la suite des au¬ 
tres, des blocs de deux octets dési¬ 
gnant, dans l'ordre, l'adresse des 
diverses pages sur disques consti¬ 
tuant le fichier. On remarquera que 
la connaissance adresse début et 
adresse fin permet de savoir exacte¬ 
ment le nombre d'octets sauvés, 
alors que les fichiers sont enregis¬ 
trés par page de 256 octets. En fait, 
on voit donc que dans la plupart 
des cas, on perd un peu de place 
(un fichier de un octet prend 2 pa¬ 
ges : 1 page de lien, une page de 
données), soit 512 octets sur dis¬ 
que, mais faire une gestion correc¬ 
te du remplissage non complet de 
pages, avec possibilité d'utiliser la 
fin d'une telle page pour stocker 
autre chose aurait fort compliqué la 
structure et aboutirait en fait à faire 
perdre de la place dans la plupart 
des cas). 

Enfin, chacun des secteurs de don¬ 
nées contient réellement l'informa¬ 
tion, à savoir : la valeur des divers 
octets sauvés. 

La méthode utilisée permet de ne 
pas avoir forcément des secteurs 
de liens qui se suivent (ce qui est 
souvent le cas quand on fait des 
changements de fichiers - efface¬ 
ment,...). On a parfois recourt à une 
autre méthode pour aboutir au 
même résultat par utilisation d'un 
chaînage des secteurs de don¬ 
nées (les deux premiers octets de 
chaque secteurs de données sont 
utilisés pour indiquer l'adresse du 
secteur de données qui contient 
les octets suivant ce secteur et l'on 
donne alors l'adresse du premier 
secteur de données). La place 
occupée est souvent plus faible 
(par exemple, notre octet n'aurait 
pris qu'un secteur), mais l'efface¬ 
ment d'un fichier devient beaucoup 
plus long (il faut parcourir chacun 
des secteurs de données à la re¬ 
cherche de l'adresse des secteurs 
à déclarer libres, alors qu'ici la plu- 
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Des secteurs 













d'un fichier de programme 












Secteur 

de 

lien 




00 

Ff 

1.10 

00 

05 

UE 

07 

04 

02 

09 

0 C 

09 

0D 

09 

8 E 

09 

0 F 


10 

08 

i.Û 

09 

11 

0 H 

01 

Ofl 

02 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


28 

F F 

FF 

FF 

FF 

FF 

FF 

FF' 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


3ü 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


4Ü 

. |-p 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


50 

FF 

FF 

FF 

PP 

FF 

FF- 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


60 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


70 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


38 

FF 

F F 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


9û 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

KF 

FF 

FF 

FF 

FF 

FF 

FF 


RM 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


60 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


1 H 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


DÛ 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


ËÛ 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


F- U . 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 











Secteur de données 




00 

00 

10 

05 

0 H 

00 

90 

20 

2 fl 

2 fl 

■Pfj 

2 fl 

2 fl 

2 fl 

46 

4F 

52 

. U H.ME OR 

10 

4L) 

41 

54 

2 h 

2 H 

2 fl 

2 fi 

2 fl 

2 fl 

2 H 

2 fl 

2 H 

00 

39 

05 

14 

HH HUM ».M4.9.. 

30 

00 

90 

20 

31 

37 

20 

53 

45 

43 

54 

45 

55 

52 

53 

20 

50 

.. 17 SECTEURS P 

30 

•il 

52 

20 f 

50 

49 

•-‘O 

54 

45 

00 

56 

f?5 

1E 

00 

90 

2 ü 

32 

RR PISTE.V_ 2 

40 

25 

36 

20 

4F 

43 

54 

45 

54 

•-'8 

20 

50 

41 

52 

20 

53 

45 

56 OCTETS PAR SE 

5Û 

43 

54 

45 

cr cr 

53 

00 

se 

05 

26 

00 

90 

00 

62 

05 

21 

00 

CTEUR. ...b. 1 . 

6 Û 

94 

00 

6 H 

85 

•;.j 

00 

ei 

2 ü 

30 

00 

71 

05 

24 

80 

B 2 

36 

...).#.fi 0.q.$.o6 

?ü 

00 

FF 

05 

25 

00 

48 

40 

04 

E7 

28 

23 

41 

36 

29 

00 

SB 

... 14. HH "< #R6 . 

8 û 

05 

26 

00 

8 fl 

■;>Cj 

38 

41 

2 C 

48 

40 

00 

91 

05 

28 

00 

90 

. #0R, HM. 

90 

00 

90 

05 

29 

00 

9E 

20 

23 

37 

41 

46 

46 

00 

BE 

05 

2R 

#7’RFF. *■.t 

H0 

00 

Bh 

22 

46 

4F 

•-'2 

4Ô 

41 

54 

54 

41 

47 

45 

2 u 

45 

4E 

. C'FORMFlTTFlGE EN 

ee 

2*0 

50 

52 

45 

5Û 

41 

52 

41 

54 

49 

4F 

4E 

22 

00 

04 

05 

FREPHRRTIÜH". . 

C0 

20 

08 

ce 

4 G 

4F 

41 

44 

22 

46 

4F 

52 

40 

41 

54 

2E 

43 

-. ôLÛRO"FORMAT.C 

D0 

40 

44 

22 

00 

ER 

es 

32 

00 

G0 

4C 

4F 

41 

44 

22 

53 

45 

MD"..2.ÔLQRD"SE 

50 

43 

54 

4F 

52 

2E 

44 

4Ï 

54 

22 

010 

10 

96 

37 

00 

99 

20 

CTOR.DRT"... 7.. 

F0 

E6 

28 

25 

45 

36 

43 

41 

29 

04 

37 

32 

20 

G 9 

20 

49 

51 

• WE6CR > 72 0 IQ 

00 

crcr 

cru- 

20 

Cl 

4fl 

Cl 

1111 

01 

Ô0 

14 

01 

01 

00 

55 

55 

trcr 

UU iJx.IJIJU 

10 

04 

02 

00 

00 

00 

00 

EE 

EF 

EF 

EF 

BO 

04 

00 

EE 

lfl 

05 

. i _ 

20 

55 

55 

00 

7E 

Eh 

4 F 

05 

00 

00 

00 

00 

F2 

F2 

F 2 

F2 

94 

UU. --'O. 

30 

00 

F 2 

34 

G0 

40 

41 

53 

54 

4F 

c i2 

49 

43 

2E 

42 

41 

53 

. 46MRST0R IC. BRS 

40 

00 

f:c 

00 

ED 

00 

C0 

00 

FE 

00 

FE 

08 

08 

55 

00 

00 

00 

...à _U. . . 

50 

55 

r:: c: 

00 

00 

EO 

00 

EC 

78 

BE 

13 

00 

0F 

80 

BF 

08 

•34 

UU.. . _->.4 

6 Û 

01 

3fl 

00 

05 

2 G 

00 

8 G 

04 

00 

00 

55 

73 

01 

01 

OC 

8 C 

. : . . ..IJS. . ! . 

70 

04 

61 

ce 

O >■ 

G 8 

72 

05 

75 

01 

FO 

03 

7v 

05 

0 fi 

CG 

80 

. aC2îer. u. . r. . •. 

8 Û 

C9 

cru 

cjcr 

FO 

CG 

B 3 

G 9 

01 

G 4 

cjcr 

55 

55 

55 

55 

00 

00 

0UUÔ0VNUUUUU.. 

90 

00 

001 

00 

00 

55 

e*Cj 

56 

05 

55 

55 

55 

55 

55 

55 

55 

55 

.. iJUV. UUUUUUUU 

fl0 

55 

cc 

OR 

es 

00 

02 

00 

10 

01 

55 

55 

55 

2 G 

01 

55 

55 

UU ü .uuu . JJU 

60 

30 

001 

55 

*55 

01 

30 

00 

FC. 

00 

FC 

0 Ï 

4fl 

E2 

20 

02 

55 

.. UU ■ ”_J JJ 

C0 

00 

05 

55 

55 

55 

47 

G 5 

H0 

Ê2 

55 

55 

03 

0 C 

03 

00 

ÔF 

. J II il IGïïal HJ. .... 

M 

56 

05 

00 

05 

00 

00 

G 7 

12 

00 

2 C 

01 

0 £ 

2 C 

01 

13 

15 

V.It. . --- . . . 

60 

00 

55 

crcr 

001 

43 

01 

4 R 

05 

00 

B5 

14 

F 8 

00 

FC 

04 

CJCj 

.uu.c. j. .a..,u 

F0 

05 



55 

30 

08 

FE 

fl D 

09 

FE 

29 

3F 

80 

09 

FE 

60 

.UUU. .£. >?. . v 


part du temps un (ou deux) sec¬ 
teurs suffisent à donner ces infor¬ 
mations (le secteur de lien) et 
quand on sait que ce qui est coû¬ 
teux en temps sont les i/o disque, 
on comprend mieux pourquoi avoir 
choisi cette méthode. 

Pour aller plus loin, nous vous pro¬ 
posons deux sujets de réflexion : 

- Si on regarde attentivement le 
BM d'une disquette, on peut s'aper¬ 
cevoir que certains des secteurs 
qui y sont déclarés occupés ne le 
sont en fait par rien. Une méthode 
simple et fort efficace permet de sa¬ 
voir tous les secteurs d'un disque 
qui sont occupés par des données 
utiles (du moins quand les fichiers 
sont à accès séquentiel) et, ainsi, 
de pouvoir*redéclarer comme libres 
des secteurs faussement occupés 
(ce qui est le cas d'environ un à 2 
secteurs par disquette- pour être 
plus précis, ce nombre est égal au 
nombre de secteurs occupés par le 
directory moins 1 : devinez pour¬ 
quoi...). Le but est donc bien sûr 
d'écrire un programme qui se char¬ 
ge de repérer de tels secteurs et 
de produire le BM qui serait correct 
(ce programme pourra être écrit en 
LM mais aussi en BASIC, ce qui est 
ici largement suffisant). 

- Faire un programme qui affiche 
pour chaque fichier du directory 
son adresse de début et de fin (du 
moins telles qu'elles ont été sau¬ 
vées). 

Solution, comme d'habitude, le 
mois prochain... 



Gagnez un 
abonnement à 


Votre revue préférée servie gra¬ 
tuitement à domicile : le rêve, 
non ? 

Il peut rapidement devenir réalité 
si vous participez à l'élaboration 
de THEORIC. La publication d'un 
programme entraînera l'abonne¬ 
ment de son auteur (ou la prolon¬ 


gation de son abonnement) pour 
une durée de trois mois, six mois 
ou un an. Nous contacterons les 
auteurs des meilleurs travaux et 
leur proposerons une participa¬ 
tion plus régulière mais rémuné¬ 
rée. Avis aux amateurs. 
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^éducatif 



Frédéric JEANNIN 


le 


omment faire apprendre (ou réviser) aux enfants les différen¬ 
tes tables d'opérations, sans s'infliger la traditionnelle lita¬ 
nie ? En utilisant l'ordinateur, bien-sûr ! 


Ecrit pour ATMOS, ce petit éducatif 
pourra être utilisé par des enfants 
de 6 à 10 ans. Il leur permettra de ré¬ 
viser et d'effectuer un contrôle de 
connaissances des différentes ta¬ 
bles d'opérations. 

La présentation du programme a vo¬ 
lontairement été soignée. La numé¬ 
rotation de 10 en 10 permettra l'utili¬ 
sation de votre numéroteur automa¬ 
tique préféré. 

Le programme propose deux op¬ 
tions essentielles : la révision et le 
contrôle. 

La phase d'apprentissage (ou de ré¬ 
vision) indique, pour l'opération 
choisie, le signe, puis la table cor¬ 
respondante. Après avoir observé 
cette table, l'enfant devra la réciter. 

La phase de contrôle propose une 
série de questions auxquelles est 
affecté un certain nombre de 
points. Une appréciation globale se¬ 
ra donnée par l'ordinateur à l'issue 
du test. 

Au fait, que cela ne vous empêche 
pas de contrôler vous-même le tra¬ 
vail de vos enfants... 
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i l . i'i 
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:V 
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350 
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Xi 
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130 
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Xi 
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* 

Xi- 

3? n 
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iV 
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$ 

Xi 
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4 10 
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420 

430 

GOT0400 
PRINT @36 

.12: “NO! 


J: -9- ib *-■*--*: ^ -*r -*■ -b- » -fr- 

c ) 4 O f 51 t85 \ O ■— C H ■ ; *-»•-*■=- 

J 5 ' . > ♦ -fF j*- -*• -<S- -ï 

26C PR IMTCHF. $ ( i I. : F P1 NT THF i- 4 ■ ; : F ~ 


I. NK 1 

F‘RINTCHR$ 127 '} : " J 


îOO F R î N ( CHR$ ( 4 


38 










440 PL0T3, 14,5: PRINT@5, 14; "TABLE D ' AD 
DI T ION (0/N):" 

450 PL0T35,14,1 
460 IF K$="0"THEN510 

470 K$=KÉY*ï IFK$= "O”THENF'RINT@36, 14; " 
OUI , ‘:SI$=" + ": PRINT@36, 16; "NON" : G0T0510 
480 IF K$=“N"THEN500 
490 SOTO470 
500 PRINT@36,14;"NON" 

510 PL0T3,16,5:PRINT05,16;"TABLE DE D 
I VIS ION (0/N):" 

520 PL0T35,16,1 
530 IF K$="O"THEN580 

540 K$=KEY$:IFK$="0"THENPRINT@36,16;" 
OUI": SI$=”/":G0T0580 

550 IF K$="N"THEN570 
560 G0TÜ540 
5 70 PRI NT@36,16:"NON" 

580 PL0T3, 18,3: PRINT@5, 1S; "LIVRE 

T DE la12 : " 

590 PL0T35,16,1 
600 K$=KEY$ 

61O IF K$ <"1"ORK*>"9"THEN630 
620 G0T067O 

630 IFK$= n O"THENK*=“10":G0TQ670 
640 IFKS>="-"THENK$="11":G0T0670 
650 ÏFK$=" = ,, THENK$="12":GOT0670 
660 BOT0600 
670 G0T0700 

680 PRINT©36,12;"NON": PRINTQ36,14;”NO 


N": PRINT@36,16;"NON”:RETURN 
690 PRINT@36,16;"NON":60TÜ440 
700 PRINT@36,18;KS> 

710 PL0T3,22,2:PRINTS14, 22;"MERCI" 

720 PR I NT@ 13,23 ; "-" 

730 LI=VAL< ): IF CT=1THEN3460 

740 G0SUB1670 

750 '*********************** 

760 '-*-*-*-*-s-page révision***** 

770 ' **-***-****-********•**■**** 

780 WAIT70 

790 PRINTCHR$(12): PRINTCHR$(4) ; 

800 PRINTCHR$(27);"J"; 

810 PRINT" T AELE",A$ 

820 PRINTCHRÆ(4) 

830 PLGT3,2,3:PL0T3,3,3 

840 PLGT3,4,"Le signe de "+B$ 

850 PLOT9,6,"--- 

_si 

860 PL0T9,21,"-*- 

___Il 

870 FOR D=7T020 

880 PL0T9,D,"!":PL0T35,D,"j“ 

890 PLOT10,D,2:PL0T33,D,1 
900 NEXT 

920 ' *****equi 1 lage vers + - * •"•-***** 
930 ' *************H************-tf-****** 
940 IF SI$-= " + "THEN1790 
950 IF SI"—"THEN2100 



Prénom 


Code Postal 


Adresse 


Bon de commande et règlement à envoyer à : Editions SORACOM - La Haie de Pan - 35170 BRUZ 













960 IF SI*="*"THEN990 
970 IF 5I*=“/"THEN2410 
980 STOP 

990 ■K-**###*******##*#**###**# 

1000 '******multip 1ication***** 

1010 ' ************************* 

1020 FOR NB=1T012 
1030 PRINT@ 11,7+NB:LI; "Fois" 

1040 PRINT©19,7+NB; NB 
1050 PR INTS23,7+NB ; " Fon t " 

1060 PL0T27,7+NB,3:PL0T33,7+NB,1 
1070 PRINT@28,7+NB;LI*NB 
1080 NEXT 

1090 PL0T3,23,5:PL0T3,24,5:PL0T3,25,5 
1100 F'RINT@5,23; "Mémoriser bien la ta 
b le du";LI 

1110 PRINT65 ,24; "ENSUITE APPUYER SUR 
UNE TOUCHE" 

1120 SETA$ 

1130 F0RA=1TO12 
1140 PL0T28,7+A," 

1150 NEXT 
1160 PLOTS,23, 

I! 

1170 PLOT 5,24, 

II 

1180 PRINT@5,23;"MAINTENANT DONNER LE 
RESULTAT DE" 

1190 FQRNB=1TO12 
1200 PRINT@7,24: NB;“*”;LI 
1210 INPUT" RESULTAT";RE* 

1220 PL0T3,25,5 

1230 IF VAL(RE*)=NB*LITHENPRINTS28,7+ 
NB;LI*NB: GOTO1270 
1240 PING:WAIT50 

1250 PL0T27,7+NB,7: PRINT@28,7+NB;LI*N 
B 

1260 FT=FT+1 
1270 PL0T3,25," 

il 

1280 NEXT 

1290 GOTO 5940 

1300 ************** 

1310 ' **+*#menu***** 

1330 F’APERO: INK1 
1340 PRINTCHR*(12) 

1350 PRINTCHR*(4) : PRINT: PRI NT: PR 

I NT: PRINT: PRINT : PRINT : PRINT : 

1360 PRINTCHR*(27 >:"N"; 
i370 FRINT" MENU" 

1380 FRINTCHR*(4) 

1390 PL0T3, 14,5: PRINT@5, 14 ;" 1 = REV 13 
ION DES TABLES" 

1400 PL0T3,16,5:PRINT@5,16;"2 = CONTR 
OLE DES TABLES" 

1410 PL0T3,18,5:PRINT@5,18;"3 = REGLE 

n 

1420 PL0T3,20,5:PRINT@5,20;"4 = FIN " 


1430 PLOTS,14,2 : PLOTS,16,2:PLOTS, 18, 
2 : PLOTS,20,2 

1 440 PL0T3,22,3 : PR INT-â i 4,22; " VOTRE CH 
01 X " 

1450 KÏ=KEY* 

1460 IF K*="1" THEN G0=100:GOTO1510 
1470 IF K*— "2“ THENG0=1550:GOTO1510 
1480 IF K*=“3“ THE NG0=276O: G0T D1510 
1490 IF K$="4" THENG0=4: GOTO1510 

1500 GOTO1450 

1510 PL0T26.22,1:PRINTÜ27,22;K* 

1520 IF G0=4 THEN CLS:PAPER7:INKO:PRI 
NTCHR*(17) : END 
1530 GOTO GO 
1540 STOP 

1550 ’ ****************** 

1560 ')HHHf#controle***** 

1570 '****************** 

1580 F’APERO: INK1 

1590 C0*= "$&SeX$&&X$ /I * V & L * ?/ X $ v ?< a * 

x " 

i6oo ci*= ■■* x* x* x :># * x* x* 

$ 

1610 C2$= "$ * X*; X ># * X* X* 

$ 


1620 

*S(X 

C3*= 

"* 

* 

X $ < 

: ; X 

># 


X* 

X* 

1630 

II 

« 

U 

"* 

* 

X* 

<v. 

># 

*; 

$ 

X* 

* 

1640 

C5*= 


X $ 

X* 

V 

># 

$<; 

* 

X* 

* 

1650 

C6*= 


:X*& 

&x* 

X 

># 

* < 

; 

&X*8< 


&X*&&X" 


1660 CT=1 :AL=230:G0T05700 
1670 ********************** 

1680 '*****quelle table***** 

1700 IF 5I*="*"THENA*="DE MULTIPLICAT 
ION" 

1710 IF SI*=" + "THENA*= ,! D 'ADDITION" 
1720 IF SI*="—"THENA*="DE SOUSTRACTIO 
N" 

1730 IF SI*="/"THENA*= "DE DIVISION 

II 

1740 IF SI*="+“THEN 
B*="1'addition est:+" 

1750 IF SI*=" —”THEN 

B*="la soustraction est:—" 

1760 IF 3I$ = "*"THENB*=" la. multiPÜcat 
ion est:*" 

1770 IF 51*=“/"THENB*="1 a division es 
t: 

1780 RETURN 

1790 '****************** 

1800 ' *****a.dd i t ion****+ 

1810 ‘****************** 

1820 FOR NB=1 TOI2 
1830 PRINT@11,7+NB;LI ;"et” 
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1840 PRI NT@17,7+NB; NB 
1850 PRINT@21,7+NB;"Font" 

1860 PL0T25,7+NB,3:PL0T33,7+NB,1 
1870 PRINT@26,7+NB;NB+LI 

1880 NEXT 

1890 PL0T3,23,5:PL0T3,24,5:PL0T3,25,5 
1900 PRINT05,23;"Mémoriser bien la ta 
b le du";LI 

1910 PRINTG5 ,24;"ENSUITE APPUYER SUR 
UNE TOUCHE" 

1920 GETA* 

1930 F0RA=1T012 


RESULTAT DE" 

2300 F0RNB=1T012 

2310 PR INT@7,24;NB+LI ;"-”;LI 

2320 INPUT" RESULTAT"; RE* 

2330 PL0T3,25,5 

2340 IF VAL (RE*) = (NB+LI>-LITHENPRINT@ 
27,7+NB;(LI+NB)-LI:G0T02380 
2350 PING:WAIT50 

2360 PL0T26,7+NB,7: PRINT@27,7+NB; (LI + 
NB)—LI 

2370 FT=FT+1 
2380 PL0T3,25," 

II 


1940 PL0T26, 7+A, " 

1950 NEXT 
1960 PLOTS,23, 

II 

1970 PLOT 5,24, 

I! 

1980 PRINT@5,23;"MAINTENANT DONNER LE 
RESULTAT DE" 

1990 FORNB=1TOl2 

2000 PRINT@7,24 ; NB;" + ";LI 

2010 INPUT" RESULTAT"; RE» 

2020 PL0T3,25,5 

2030 IF VAL (RE*)=NB+LITHENPRINT@26,7+ 
NB;LI+NB:G0T02070 
2040 PING:WAIT50 

2050 PLOT25,7+NB,7:PRINT@26,7+NB;LI+N 
B 

2060 FT=FT+1 
2070 PL0T3,25," 

II 

2080 NEXT 
2090 GOTO 5940 
2100 ' **+■******************* 

2110 '***#*soustraction***** 

2130 FOR NB=1T012 

2140 PRINT@11,7+NB;LI;"de" 

2150 PRINT@17,7+NB;NE+LI 
2160 PRINT@21,7+NB;"reste" 

2170 PL0T26,7+NB,3:PL0T33, 7+NB, 1 
2180 PRINTS27,7+NB;(LI+NB)-LI 
2190 NEXT 

2200 PL0T3,23,5:PL0T3,24,5:PL0T3,25,5 
2210 PRINT@5,23;"Mémoriser bien la ta 
b le du";LI 

2220 PRINT@5 ,24;"ENSUITE APPUYER SUR 
UNE TOUCHE" 

2230 GET A* 

2240 FORA=1TO12 
2250 PL0T27,7+A," 

2260 NEXT 
2270 PLOTS,23, 

II 

2280 PLOT 5,24, 

H 

2290 PRINT05,23;"MAINTENANT DONNER LE 


2390 NEXT 

2400 GOTO 5940 

2410 '*#**#**##*#*#***+* 

2420 ' *****dly ision*-**** 

2430 ' ♦**♦****+**+■*-*-£***- 

2440 DI=LI 

2450 FOR NB=1TÜ12 

2460 PR INT@11,7+NB;LI ; "en" 

2470 PRINT@17,7+NB;DI 
2480 PRINT@22,7+NB:"est" 

2490 PL0T25,7+NB,3:PL0T34,7+NB,1 
2500 FRINT@26, 7+NB; DI/LI ; "-fois" 

2510 DI=DI+LI 
2520 NEXT 

2530 PL0T3,23,5:PL0T3,24,5:PL0T3,25,5 
2540 PRINT05,23;"Mémoriser bien la ta 
ble du";LI 

2550 PRINT@5 ,24;"ENSUITE APPUYER SUR 
UNE TOUCHE" 

2560 GETA* 

2570 F0RA=1T012 
2580 PL0T26,7+A," 

2590 NEXT 
2600 PL0T5,23, 

II 

2610 PLOT 5,24, 


2620 PRINTS5,23;"MAINTENANT DONNER LE 
RESULTAT DE" 

2630 DI=LI 


2640 F0RNB=j TOI2 

2650 PR I NT@7,24 : D I ; " '■ " ; L I 

2660 INPUT" RESULTAT";RE* 

2670 PL0T3,25,5 

2680 IF VAL<RE*)=DI/LITHENPRINT@26, 7+ 
NB; DI/LI ; "-fois" : GQT02720 
2690 PING: WAIT50 

2700 PL0T25, 7+NB, 7: F‘RINT@26, 7+NB;DI/L 


.0 FT=FT + 1 



PLOT 3 


^-icr ii 

, i-i. 


2730 DI=DI+LI 

2740 NEXT 

2750 GOTO 5940 

2760 ' *******•*■*•*•*■*■#••**• 
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2780 

2790 

2800 

' *****reg1e***** 

¥r it .-¥r-ib ■¥: 

CLS 

CÜ$=" 


$?/?,>: " 

2810 

C1 $=" 

$ 71$ 

i 

T 

$ 

2820 

C2$= " 

$ 7.$ 

$ 

$ 

$ 

2830 

C3$ = " 


% $ $v$ 

$?<>: » 

2940 

C4$=" 

T: $ 

$ 

71$ 

$ 

2850 

C5$=" 

$<; $ 

$ 

%$ 

$ 

2860 

C6$=" 

i < ; i? 

3 vTL&XTêî- 

71 $&&■/. " 


2870 AL=2B80: B0TQ5700 

2880 PR INTCHR$(12):PRINT : PRINT: PR INT: 
PRINT: PRINTCHRT< 4) ; 

2890 PR INTCHR$(27);“J”? 

2900 PR INT" REGLE" 

2910 PRINTCHRT <4> 

2920 PL0T3, 12,3: P RI NT S 5,12;" Cho i >; du 
livret:" 

2930 PRINT@4, 13; "-" 

2940 F'RINTS 10, 14; "Livret du 10: appuy 
er sur 0" 

2950 PRINTSUO,15;"Livret du 11: appuy 

P C I ! f-~- — ,S 

2960 PR INT®10, 16;"Livret du 12: appuy 
er sur =" 

2970 PL0T23,14,5:PL0T23,15,5:PL0T23,1 
6,5 

2980 PL0T3,20,3: PRINT@5,20;"En généra 

I:" : PR I NT @4,21; " —-” 

2990 PRINT@10,22;”H DEL j : corre 

c tion " 

3000 PRINTS 10,23; "CRETURNI : vali 
dation" 

3010 PL0T23,22,5:PL0T23,23,5 
3020 PLDT3,25,5 

3030 PRINTS5,25;"Appuyer sur CESPACE 1 
pour le menu" 

3040 GETA$:IF A$=" "THEN1300 
3050 GDT03040 
3060 END 

3070 '******************************* 
3080 ' *****rede-f in i t ion caractères*** 
3090 ' ******************************* 

3100 FOR A--0T07 
3110 READB 
3120 PDKE46416+A,B 
3130 NEXT 

3140 DATAO,0,34,20,8,20,34,0 

3150 FOR ft=0TG7 

316O READB 

3170 P0KE46832+A,B 

3180 NEXT 

3190 DATAO,0,12,12,0,12,12,0 

3200 F 0 R P=0 T 0 3 

3210 M=#B400+8*(35+P) 

3220 FÜRA=0T07 


3230 READB 
3240 POKEM+A,B 
3250 NEXT 
3260 NEXT 

3270 DATA56,56,56,56,56,56,56,56 
3280 DATA31,31,31,31,31,31,31,31 
3290 DATA62,62,62,62,62,62,62,62 

3300 DATA63,63,63,63,63,63,63,63 

3310 P0=46552 

3320 FOR A=0T07 

3330 READB 

3340 POKEPO+A,B 

3350 NEXT 

3360 DATA32,48,48,56,60,60,62,63 

3370 DATA63,63,31,15,7,7,3,1 

3380 IF P0=46560 THEN 3400 

3390 F‘0=PQ+8: G0T03320 

3400 FOR A=0T07 

3410 READB 

3420 P0KE46576+A,B 

3430 NEXT 

3440 DATA7,7,7,7,7,7,7,7 
3450 RETURN 

3460 '************************ 

3470 '*****ccntroie suite***** 

3480 ' ************************ 

3490 '*****tirage nombres***** 

3500 '************************ 

3510 DIMCN(12): 1 = 1 

3520 C1=INT(RND(1 )*12+1) 

3530 IF C1=CN(1) THEN 3520 
3540 IF C1=CN(2) THEN 3520 
3550 IF C1=CN(3) THEN 3520 
3560 IF C1=CN(4) THEN 3520 
3570 IF C1=CN(5) THEN 3520 
3580 IF C1=CN(6) THEN 3520 
3590 IF C1=CN(7) THEN 3520 
3600 IF C1=CN(&) THEN 3520 
3610 IF C1=CN(9> THEN 3520 
3620 IF C1=CN(10)THEN 3520 
3630 IF C1=CN(11)THEN 3520 
3640 IF C1=CN(12)THEN 3520 
3650 CNCI)=C1:1=1+1 
3660 IF 1=13 THEN 3680 
3670 G0T03520 
3680 CLS 

3690 IFSI$="+"THENPC$=" 
d'ADDITION" 

3700 IF SI$="+"THENB$="1'addition" 
3710 IFSI$="*"THENPC$=" de 

MULTIPLICATION" 

3720 IF SI$="*"THENB$="la multipli¬ 
cation" 

3730 IFSI$="-”THENPC$=" de 

SOUSTRACTION" 

3740 IF SI$="-"THENB$="la soustrac- 
t- ion" 

3750 IFSI$="/"THENPC$=" 
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de DIVISION" 

3760 IF SI %=”/ "THENB$="la division" 
3770 F'AF’ERO: INK1 

3780 PRINTCHR*(12) : PRINTCHR*(4) ; 

3790 PRINTCHR$(27) ; "N" ; 

3800 PRINT" CONTROLE des TAB 

LES" 

3810 PRINT:PR INT:PRINT 
3820 PRINTCHF:$(27);"J"; 

3830 F'RINTF'C* 

3840 PRINTCHR$<4> 

3850 PL0T3,2,3:PL0T3,5,6:PL0T3,6,5 
3860 PL0T3,8,3: F'R I NT@5,8 ; " LIVRET DU : " 

;li 

3870 PL0T4,9, "-" 

3880 '*********************** 

3890 '*****lere question***** 

3900 '*********************** 

3910 PL0T3,11,3:PRINTQ5,11;"lere gués 
t i on (su r 3points)" 

3920 PRINT@4,12;"- 


3930 PLOT3,14,5:PRINTQ 5,14;"Quelle e 
st le signe de ”;B$;"?" 

3940 PL0T3, 15,5 

3950 F'RINT@ 10, 16; " 1 Le signe est :" 
3960 PRINTdlO,18;"2 Le signe est :" 
3970 PRINT@10,20; "3 Le signe est :" 
3980 F'RINT@10,22; "4 Le signe est :" 
3990 PLQT27,16,5:PL0T27,18,5 
4000 PL0T27,20,5:PLQT27,22,5 
4010 PR I NT@28, 16 ; " * " : PR I NT<528, 18;" "" " 
4020 PRINT@28, 20; " + " : F'RINT@28,22; "-" 
4030 PL0T3,24,3:PRINT@5,24;"Votre rep 
anse (S.V.PÏs" 

4040 IF SI$= " / "THEN SI 
4050 GETA$ 

4060 IF A$="1"THENA$="*":B0TQ4110 
4070 IF A*="2"THENA$= GGT041 10 

4080 IF A$="3"THENA$="+":G0TG411O 
4090 IF A$="4"THENA$=":G0T04110 
4100 G0TG4050 

4110 PL0T28,24,5:PRINT<§29,24 ;A$ 

4120 IF A$=SI$THEN4140 
4130 G0T04150 

4140 F'RINT@14,25; "C'est juste” : Bl=3: G 
OT04160 

4150 PRINT@14,25;"C'est faux:”:G0T041 
60 

4160 WAIT300 

4170 F0RA=11T025:PL0T4,A," 

11 

4180 NEXT 
4190 B2=12 

4200 '*********************** 

4210 '*****2eme question***** 

4220 '*********************** 

4230 PL0T3, 11,3: F'R INT @5,11;" 2eme gués 


t'ion (sur 12points> " 
4240 PRINT04,12;”- 


4250 PL0T3, 14,5:F‘RINT@ 5, 14; "Calculer 
le plus vite possible" 

4260- A=1 

4270 IF SI$="*" THEN 0F' =CN(A) 

4280 IF SI$="+" THEN 0P=CN(A> 

4290 IF SI$=“--» THEN QF'=CN<A)*LI 

4300 IF SI*="-" THEN ÜF'=CN(A)+LI 

4310 * 

4320 ' 

4330 PL0T3, 17,3: PR I NT@6, 17 ; " Ca 1 eu. 1 er : 

il 

4340 F'RINT05, 18; ”-" 

4350 PLOT 15, 17,5 : PR I NT ( â 16, 17: OP ; SI $ ; L 
I 

4360 F’L0T3,20,3: PR I NT@6,20; "Repense : 

it 

4370 F'R INT@5,21;"-” : G0SUB43 

90 

4380 A=A+1 : IF A > 12THEN4760 ELSE 427 

0 

4390 * LECTURE CLAVIER 
4400 TF-TP+1 
4410 K$=KEY$ 

4420 IF K$=CHR$(127) THEN 4720 

4430 IFK$=CHR$(13)THEN 4570 

4440 IF K$=""THEN 4390 

4450 ' ECRIT REPONSE 

4460 IF SI$="*" THEN RF-0F'*LI 

4470 IF SI*=" + " THEN RF-OF'+LI 

4480 IF SIÎ="-" THEN RF'=ÜF'-LI 

4490 IF SITHEN RF'=0P/LI 

4500 PLOT16,20,5 

4510 F'R INTOCO, 20 ; K T 

4520 'VERIFIE REPONSE 

4530 F'R$=M I D$ ( STR$ ( RP ) , CA, 1 ) 

4540 I FF’R$=K t THEN PJ=PJ+1ELSEF'F=PF+ 

1 

4550 CA=CA+1 

4560 C0=C0+1:G0T04390 

4570 ' REPONSE JUSTE OU FAUSE 

4580 IF F'F>0 THEN4620 

4590 IF LEN ( 3TF;$ ( RP ) ) =F'J+1 THEN P J=0 : C 
A=2:C0=17:PF=0:NF=0: GOTO4610 
4600 G0T04620 

4610 F'R I NT@17,20 ; ” " : GOTO 4 

380 

4620 PRINT@14,22;"C'es t faux" 

4630 PRINT©14,23;"RECOMMENCER" 

4640 PING:WAIT50 
4650 F'R I NTÊ14,22 ; ” 

4660 PRINT014,23;" 

4670 F'R I NT@ 17,20 ; " 

4680 F'J=0 : C0= 1 7 : CA=2 ; B2=B2- 1 : PF=0 
4690 NF=NF+1: IF NF=2 THEN 4710 

4700 GQT04390 


4J 










4710 NF ( J} =0F' ; J=J+ i ; NF=0 : GÜT04380 
4720 ' *******#**-************ 

4730 ' *•**•■*■* touche CDEL3***** 

4740 ' **************-*•*■#-#-•*■•*-**■ 

4750 PJ=0: 00=17:PF=0:CA=2: PRINT017,20 
;" ":B0TO4390 

4760 F0RA=11T025:PL0T4,A," 

! i 

4770 NEXT 

4780 ' *********•#-*•#••*•*•#*■***■**#• 

4790 ' #*-***coropte rendu***** 

4800 ' ******************** 

48î0 PL073, 11,3: PRINT014,11 ;"Comp te r 
en du” 

4820 PR I NT013, 12 ; "-" 

4830 'lere QUESTION 

4840 PLOTS, 14,5:PRINT04, 14;"lere ques 
tien <3 pointe)" 

4850 PRINT03, 15; "-.- 

_ü 

4860 IF B1=3 THEN 4940 
4870 PL0T3,16,3: PLOTS,17,3 
4880 PRINT06,16;"La repense n'était p 
as ";A$;" (nais ";SIT 
4890 PLGT28, 16,1:PLQT30,16,3:PL0T35,1 
6, 1 

4900 PL0T28,17,1:PRINT@29,18;Bl;"Foin 
t" 

4910 PL0T28,18,1 : PLOTS1, 18,3 

4920 PR I NT028,19; "-" 

4930 GQT05000 

4940 PL0T3, 16,3:PLOTS,17,3 
4950 PRINT06,16;"La réponse était bie 
n " ; SIT 

4960 PL0T27,16,1 

4970 PR INT029,18; B1 ;"Poin t s" 

4980'PL0T28,18,1:PLOTS 1,18,3 

4990 PRINT02S, 19; "-" 

5000 PL0T3,24,5:PRINT014,24;"APPUYER 
SUR [espace]":GETAT 
5010 IF AT=" "THEN5030 
5020 G0T05000 
5030 '2sme QUESTION 
5040 Y=1 

5050 PLOTS, 14,5: PRINT04, 14; "2eme ques 
tion (12 points)” 

5060 PRINT03,15;"- 

___E! 

5070 F0RA=16TÜ22:PL0T3,A," 

II 

5080 NEXT 

5090 IF J=l THEN 5250 

5100 PLOT3.16,3: PLOTS,17,3:PLOTS,19,3 
5110 PRINT06,16;"Vous avez 2 erreurs 
dans les opéra" 

5120 PRINT05,17;"-tions suivantes :" 
5130 PRINT06,19;"la réponse était:" 

5140 PLOTS,20,1 : FRINT05,20;"- 


5150 PL0T23,17,1:PL0T23,19,1 
5160 PRINT024,17;RF(Y);SI$;LI 
. 5170 IF SIT="*”THEN RC=RF(Y)*LI 
5180 IF SI$="-"THEN RC=RF(Y)-LI 
5190 IF SI$="+“THEN RC=RF(Y)+LI 
5200 IF SI T= ""THEN RC=RF (Y) /LI 
5210 PRINT024,19; RC 
5220 GETAT 

5230 Y=Y+1: IF Y=J THEN 5250 

5240 GOT05150 

5250 F0RA=16T022:PL0T3,A," 

II 

5260 NEXT 

5270 PRINT06,16;"Nombre de fautes 
12-B2 

5280 PL0T3,16,3:FL0T24,16,1 

5290 IF B2<0 THEN B2-12 

5300 PRINT029,18; B2;" Points" 

5310 PL0T28,18,1:PL0T32,18,3 

5320 PRINT029, 19; "-" 

5330 GETAT 

5340 IF AT=" ” THEN 5360 
5350 GOT07790 
5360 ' TEMPS 

5370 FQRA=14TÜ21: PLOTS,A," 

11 

5380 NEXT 

5390 PLOTS,14,5:PRINT04,14;"Votre tem 
ps "; INT(TP/12.1);" secondes" 

5400 PRINT03,15;"- 


5410 PLOT 16,14,1:PL0T20,14,5 
5420 TC= INT (TP/ 12‘. 1 ) 

5430 IF TC<=35 THEN B3=5:G0T05490 
5440 IF TC<=45 THEN B3=4:S0TQ5490 
5450 IF TC<=55 THEN B3=3:G0T05490 
5460 IF TC<=65 THEN B3=2:G0T05490 
5470 IF TCO130THEN B3= 1 : G0T05490 
5480 IF TC> 130THEN B3=0:G0T05490 
5490 PLOTS,16,3 

5500 PRINT06,16;"Votre score sur 5 po 
ints" 

5510 PLOTS,18,3:PRINT029,18;B3;" poin 
ts" 

5520 PL0T28,18,1:PL0T32,18,3 

5530 PRINT029, 19; "-" 

5540 GETAT 

5550 IF AT=" "THEN5570 

5560 G0T05540 

5570 F0RA=14T021: PLOTS,A," 

II 

5580 NEXT 

5590 NOTE GENERALE 

5600 PL0T3,14,5:PRINT04,14;"Votre sco 
re total (sur 20 points) 11 
5610 PRINT03,15;"- 


5620 PRINT014,16;B1+B2+B3;" points" 
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5630 PLOT17,16,3 
5640 PL0T2,24,5 

5650 PRINT©5,24; “APPUYER SUR [espasce 
3 POUR LE MENU' 1 
5660 GETA$ 

5670 IF A$=" THEN CLEAR:G0T070 
5680 S0T05660 
5690 END 

5700 ' ****************************** 
5710 ' **-***routine présentation***** 

5720 '****************************** 

5730 INKO:CLS 
5740 PR INT©4,10;C0$ 

5750 PRINT©4,11:01* 

5760 PRINT©4,12;02$ 

5770 PRINTQ4,13;03$ 

5780 PR1NT©4, 14; 04$ 

5790 PRINT©4,15;05$ 

5800 PRINT@4,16;06$ 

5810 PL0T3,20,5: PRINT©10,20;"APPUYER 
SUR [espace3" 

5820 RI— 9:R2=10:R3=11 :R4=12:R5=13:R6 
=14:R7=15 

5830 R1=R1 +1 :R2=R2+1:R3=R3+1:R4=R4+1: 
R5=R5+1 :R6=R6+1 :R7=R7+1 
5840 PL0T2,RI, 1 : IF R1 = 17THENR1=9 
5850 PL0T2,R2,2: IF R2=17THENR2=9 
5860 PL0T2,R3,3:IF R3=17THENR3=9 
5870 PL0T2,R4,4:IF R4=17THENR4=9 
5880 PL0T2,R5,5:IF R5=17THENR5=9 
5890 PL0T2,R6,6: IF R6=17THENR6=9 
5900 PL0T2,R7,7:IF R7=17THENR7=9 
5910 WAIT50 

5920 K$=KEY$:IF K$=" " THEN INK1 

: GOTO AL 
5930 G0T0583Û 

5940 ' ************************** 

5950 '*******50us programme***** 

5960 ’******#*appressiation***** 

5970 '************************** 

5980 PL0T4,23," 

il 

5990 PLDT4,24," 

I ! 

6000 PL0T4,25,” 

II 

60 i 0 PR I NT @5,23 ; " Nomb res de -f au tes : " : 
PL0T24,23,3: PRINT©25,23;FT 
6020 IF FT=0 THENAP$="TRES BIEN":GOTO 

6080 

6030 IF FT<=2THENAP$="BIEN":G0T06080 
6040 IF FT<=5THENAP$="ASSEZ BIEN":GOT 

06060‘ 

6050 IF FT<=9THENAP$=“PASSABLE”:G0T06 

080 

6060 IF FT<12THENAP$="MAL ":G0T06 

080 

6070 IF FT = 12THENAF'$= "TRES MAL“:G0TD6 

030 


6080 F'RINT@5,24; "APPRECIATION: " :PL0T1 
9,24,3: PRINT@20,24;AP$ 

6090 WAIT500 
6100 PL0T4,23, " 

II 

6110 PLOT4,24," 

il 

6120 PL0T4,25," 

11 

6130 PRINT@5,24;"APPUYER SUR [espace] 
POUR LE MENU" 

6140 GETA$ 

6150 IF A$=" "THENFT=0:GOTO1300 
6160 GOT0740 

6170 '********************** 

6180 '*****presentation***** 

6190 '*****************-**■*■** 

6200 CLS 

6210 C0$=" $&&■/.$&&•/.$?<& $ $8t&X$«(& 

V " 

6220 Cl$=" ># $ 7.$ 7.$ $ $ 

il 

6230 C2$=" ># $ 7.$ 7.$ $ $ 

II 

6240 C3$=" ># $?<?<X$?-:?< $ $&& $&& 

7 ." 

6250 C4$=" ># $ 7.$ 7.$ $ 

y " 

6260 C5$= " ># $ v$ 7.$ $ 

y." 

6270 C6$ = ” ># $ 7.$8<& $&%X$&&7.$&& 

6280 AL=6290:G0T05700 

6290 DATA A, u, t, e, u, r, J, e, a, n , n , i , n 
, ,F,r,e,d,e,r,i,c 
6300 DATA 

6310 DATA J,u,i,1,1,e,t,/,8,6 
6320 F0RA=20T025:PL0T2,A," 

":NEXT 

6330 FOR JF=12T034 
6340 READ JF$ 

6350 PRINT©JF,22;JF$: PLAY2,0,0,0:SOUN 
D2,50,15:WAIT10:PLAYO,O,O,O 
6360 WAIT 5:NEXT 
6370 PL0T2,23,3 
6380 FOR SD=11T018 

6390 READ S0$: PRINT©SO,23;S0$:PLAY2, O 
, 0, O : S0UND2,50, 15.: WA IT10 : PLAYO, 0,0, 0 

6400 WAIT 5:NEXT 
6410 FOR S0-25T034 

6420 READ S0$:PRINT0SO,24;S0$:PLAY2,0 
,0,O:S0UND2,50, 15: WAIT10:PLAYO,0,0,0 
6430 WAIT 5:NEXT 
6440 WAIT100:RETURN 

6450 '****************************** 
6460 '*****17152 Octets occupes***** 
6470 '****************************** 
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SONDAGE LECTEURS - THEORIC N* 31 



Nul 

Moyen 

Bon 

Très bon 

Passion¬ 

nant 

Courrier et Actualité 






Trucs et Astuces 






Bancs d'essais matériels et logiciels 






Héliport 






Comment retrouver une erreur... 






Edit + 






Nouveautés TELESTRAT 






Téléforth 






LAREN 






Gestion de Break 






Librarian 






Tout sur FT-DOS 






Tables 






BASIC + 







A retourner à : Rédaction THEORIC (Sondage lecteurs) - La Haie de Pan - 35170 BRUZ 

Remarques éventuelles : -- 


Matériel utilisé : 


BASIC 

PLUS 


Grégory KURZ 


L e BASIC de l'ORIC (V1.0 & Vl.l) possède déjà une soixantaine de 
commandes, mais quelques-unes en plus ne peuvent lui faire de 
mal. Le programme BASIC+ est destiné à accomplir cette tâche 
pas trop difficile. 


Comme vous pouvez vous en dou¬ 
ter, il est écrit en Langage Machine. 
Toutes ses commandes doivent 
être précédées du ’!' mais, je rassu¬ 
re les utilisateurs d'autres utilitaires 
du même style, il mémorise le conte¬ 
nu des adresses ($2F5-$2F6) pour 
ne pas interférer avec leur fonction¬ 
nement. 

La routine est prévue pour être im¬ 
plantée n'importe où dans la mémoi¬ 
re (se rapporter au programme d’im¬ 
plantation des DATAs). 

LES COMMANDES 
Turn a,b 

Cette commande change, dans un 
programme BASIC, tous les codes 
ASCII 'a' en codes ASCII 'b'. Il est 
donc évident que : 1 < a < #FF et 1 
< b <#FF. 


Exemple : 

OPRINT" THEORIC' 
deviendra après un ITURN 
#BA,#8F 

OLPRINT" THEORIC" 

En effet, #BA est le code de PRINT 
et #8F celui de LPRINT. 

BIP 

Ce n'est qu'une instruction sonore 
qui vient s'ajouter à PING, EX- 
PLODE... 

SMEM adrl ,adr2,nb octets 

Là, il s'agit d'effectuer un ’SWAP' 
entre la zone mémoire commen¬ 
çant à adrl et celle commençant à 
adr2 pour une longueur de nb oc¬ 
tets. 

0 < adrl < #FFFF 
0 < adr2 <#FFFF et 
0 < nb octets <#FF. 


POKE adr,a$ 

Grâce à IPOKE, il est désormais 
possible de ’POKEr' une chaîne 
toute entière et non plus un seul ca¬ 
ractère à la fois. 


END 

Pour ceux qui veulent abandonner 
(ô malheur !) BASIC+, !END est la 
solution finale (comme son nom l’in¬ 
dique). Le vecteur '!' est rétabli en 
($2F5-$2F6). Bye bye BASIC +... 
’SNIF'... 

Les adaptations ORIC-1 de ce pro¬ 
gramme sont fournies par le listing 
2 . 

D'autres instructions sont en cours 
de programmation. 

A bientôt dans THEORIC! 
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Listing 2 


Listing 1 


0 REM- 

1 REM 

2 REM B A S I 0 + 

3 REM V1.0 S, PI 

4 REM 

5 REM Copyright. 1987 Gregory KUR2 

6 REM 

7 REM !SMEM, !POKE, ! BIP, !TURN 

8 REM 

9 REM- 

10 CLS: PRINTSPC(16)"BASIC+" ; PRINT 
15 INPUT" Adresse de début-" A : A=INT< A) : IF A <#400 OR A>#C000 THEN 15 
20 DOKE#A6,A-1 :B=A:F=A + #164 

25 PRINT" Adresse de fin : " HEX* ( F ) F 

75 L= 1 00 : REPEAT : PRINT2 1 0-L.' : FOR A=A TO A+ 1 5 : READ C$ 

80 K = VAL ( " # " +C$ ) : S=S+K + 65536f: ( £+K> 65535 ) : IF A< = F THEN POKE A , K 
85 NEXT:READ D$:IF S=VAL("#"+ D$) THEN L=L+5:UNTIL A>F : PRINT :GOTO220 
90 PING :PRINT:PRINT"Erreur 1 igne";L: END 

1 00 DATA A5 , EA , 85,0A , A5 , E9,85,09,20 , E8,00,09 B9 , FO , 1D , 09,089A 
105 DATA 4 2,F0,1C,C9,54,F0,IB,09,53,F0,IA 7 C9,80,F0, 2B,A5,113F 
110 DATA 09,85,E9,A5,OA,85,EA,40,70,DO,00,74,4C,75,74,4C,1855 
115 DATA 2D,75,40,A2,74,40,F7,74,A2,01,BD,F5,02,9D,28,74,1FAO 
120 DATA BD , 2 A , 7 4,9D , F5,02, CA , 10., Fl , 60,A2,01 , BD , 28,74 9D 2753 
125 DATA FS,02,CA,10,F7,40,E2, 00 ,EA,EA,54,55,52,4E,42,49,2EF1 
130 DATA 50,53,4D,45,4D,D9,5A,74,DO,09,08,20,E2,00,CA,DO,3657 
135 DATA F4,38,60,18,60,20,E2,00,20,53,E8,84,00,85,01,20,3BE2 
140 DATA 65,DO,20,17,CF,24,28,30,03,40,70,DO,20,DO,D7,AA,4299 
145 DATA FO,OA,AO,00,B1,91,91,00,08,CA,DO,F8,40,E8,00,40,4AEO 
150 DATA 1F,74,AO,00,A2,04,20,65,74,90,F4,20,08,D8,86,00,5170 
155 DATA 20,65,DO,20,08,D8,86,01,A2,01,B5,9A,95,02,CA,10,587B 
160 DATA F9,AO,04,B1,02,FO,OB,05,00,DO,04,A5,01,91,02,CB,5F60 
165 DATA 10,Fl,A2,00,08,B1,02,DO,OA,E8,EO,02,DO,F6,EA,EA,68BC 
170 DATA 40,EB,00,AO,01,61,02,48,88,10,FA,A2,00,68,95,02,6EBF 
175 DATA E8,E0,02,D0,FB,F0,CA,AO,07,A2,04,20,65,74,90,9F,7780 
180 DATA A2,00,86,00,20,53,E8,A6,00,94,01,95,02,20,65,DO,7D2A 
185 DATA E8,E8,EO,04,DO,EC,20,08,D8,8A,A8,B1,01,AA,B1,03,8690 
190 DATA 91,01,8A,91,03,88,CO,FF,DO,F1,18,90,61,AO,04,A2,8EF3 
195 DATA 03,20,65,74,90,08,A2,4E,AO,75,20,86,FA,A2,00,AO,962E 
200 DATA 18,20,62,D9,A2,57,AO,75,20,86,FA,18,90,90,77,00,9CFE 
205 DATA 00,00,00,00,00,3E,OF,00,00,00,00,00,00,00,00,00,9D4B 
210 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,9D4B 
220 IF B=#7400 THEN 275 

230 DATA 2A,0,2D,75,30,12D,33,A2,36,F7,3E,28,41 

235 DATA 2A,4D,28,66,5A,AO,1F,A7,65,FC,65,132,65,AF4 

240 FOR1=0 TO 25 STEP2:READX *,Yi 

245 X=VAL<"#"+X*>:Y=VAL("#"+Y$):Z=Z+X+Y 

250 DOKEB+X,B+Y:NEXTI 

255 READZf : IF VAL("#"+Z$) <>Z THEN PRINT"Erreur de DATA." : PING: END 

260 DOKEO,B+#14È:D0KE2,B+#157 

265 POKEB+#137,PEEK(0):POKEB+#139,PEEK(1) 

270 POKEB+#145,PEEK(2):POKEB+#147,PEEK(3) 

275 PR I NT "Un CALL " ; B + #38 ; " initialise BAS10+." : ZAP : END 


0 REn ADAPTATIONS POUR ORIC-l 
5 REM 

10 PRIN r -INPUT"Adresse de départ *• JA 

15 A= INTCA.1 • IF A<#400 OR A>#C000 THEN 10 

20 F : -A+# 164 

25 FORI---A TO F 

30 D=ÜEEKC 13 -E=-D 

35 IF Ü=#E353 THEN E«»E79D 

40 IF D=#O065 THEN E-HCF09 

45 IF O=#Dq?0 THEN E»#CFE4 

50 IF U=#D7D0 THEN E=#0715 

55 IF 0=#08C8 THEN E=#D90O 

60 IF D=#FA80 THEN E a *FMC 

65 IF D=#D362 THEN E=#D8A7 

70 IF D=#CF1 P THEN E~#CE8B 

75 OOKEI j E ’-NEXT I 
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Listing 3 


17400-7459 


7400 

7402 

7404 

7406 

A5 

85 

A5 

85 

EA 

OA 

E9 

09 


LDA 

STA 

LDA 

STA 

«EA 

«OA 

«E9 

«09 

On stocke TXTPTR en $09-$OA 

7408 

20 

E8 

00 

J SR 

«00E8 


7 40B 

C9 

B9 


CMP 

# »B9 


7 40D 

FO 

1D 


BEQ 

«742C 


740F 

C9 

42 


CMP 

#*42 

Est-ce un ’POKE' ? Si oui, POKE 

74 1 1 

FO 

IC 


BEQ 

«742F 

Est-ce un 'B' ? Si oui, BIP 

7413 

C9 

54 


CMP 

#«54 

Est-ce un T ? Si oui, TURN 

7415 

FO 

IB 


BEQ 

*7432 

Est-ce un 'S' ? Si oui, SMEM 

7417 

C9 

53 


CMP 

#$53 

Est-ce un 'END' ? Si oui, END 

7419 

FO 

IA 


BEQ 

♦ 7435 


74 1 B 

C9 

80 


CMP 

#*80 


74 1D 

FO 

?B 


BEQ 

« 74 4A 


741F 

A5 

09 


LDA 

♦ 09 


7421 

85 

E9 


STA 

♦ E9 

Si aucun caractère n'est 

7423 

A5 

OA 


LDA 

♦ OA 

reconnu, on restitue 

7425 

85 

EA 


STA 

♦ EA 

TXTPTR et on s'en va... 

7427 

4C 

70 

DO 

JMP 

♦ D070 


742A 

00 





Adresse de début de BASIC+ 

7 42B 

74 






742C 

4C 

75 

74 

JMP 

*7475 


742F 

4C 

2D 

75 

JMP 

$ 752D 

Sauts aux instructions 

7432 

4C 

A2 

74 

JMP 

* 7 4A2 


7435 

4C 

F7 

74 

JMP 

♦ 74F7 


7438 

A2 

01 


LDX 

#*01 


743A 

BD 

F5 

02 

LDA 

* 02F5 

V 

7 43D 

9D 

28 

74 

STA 

*7428 

X On stocke ($2F5) en ($7428) 

7440 

BD 

2A 

74 

LDA 

* 742 A 

X et on initialise le'!'avec 

7443 

9D 

F5 

02 

STA 

♦ 02F5 

X l'adresse de début de BASIC+ 

7446 

CA 



DEX 



7447 

10 

Fl 


BPL 

♦ 7 43A 


7449 

60 



RTS 



7 44A 

A2 

01 


LDX 

#*01 


744C 

BD 

28 

74 

LDA 

*7428 

V 

744F 

9D 

F5 

02 

STA 

*02F5 

X On restitue l'ancienne 

7452 

CA 



DEX 


adresse de '!' et on s'en va... 

7453 

10 

F7 


BPL 

* 744C 


7455 

4C 

E2 

00 

JMP 

♦ 00E2 


7 4.58 

EA 



NOP 



7459 

EA 



NOP 



07456 

-7464 






7 45A 

■ 54 55 

52- 

4E 42 

49 5 

0 53 TURNBIPS Les mots-clés. 

7462 

4D 45 

4D 

D9 5A 

74 DO 09 MEMÎ'ZtP. 

I746Ï 

J-754C 





On vérifie la syntaxe 

7465 

D9 

5A 

74 

CMP 

*745A 

Y ou mot-clé 

7468 

DO 

09 


BNE 

*7473 

Si erreur, C=1 

746A 

C8 



I NY 


sinon C=0 

746B 

20 

E2 

00 

J SR 

*00E2 

Retour à la routine 

746E- 

CA 



DEX 



746F 

DO 

F4 


BNE 

♦ 7465 


7471- 

38 



SEC 



7472 

60 



RTS 



7473' 

18 



CLC 



7474 

60 



RTS 



7475 

20 

E2 

00 

J SR 

«00E2 


7478 

20 

53 

E8 

J SR 

♦ E853 

On demande une adresse 

7 47B 

84 

00 


STY 

*00 

stockée en ($00) 

747D 

85 

01 


STA 

*01 

Y? 

747F 

20 

65 

DO 

J SR 

*D065 


7482 

20 

17 

CF 

J SR 

♦ CF 1 7 

On demande une chaîne 

7485 

24 

28 


BIT 

♦ 28 

sinon ?Syntax error 

7487 

30 

03 


BMI 

♦ 7 48C 

Quelle est son adresse ? 

7489 

4C 

70 

DO 

JMP 

♦ D070 


7 48C 

20 

DO 

D7 

JSR 

♦ D7D0 


748F 

AA 



TAX 



7490 

FO 

OA 


BEQ 

♦ 749C 


7492 

AO 

00 


LDY 

#*00 

On transfert la chaîne 

7494 

B1 

91 


LDA 

( *91 ) 

Y dans la zone mémoire 

7496 

91 

00 


STA 

< *00) 

Y choisie puis on s'en va. 

7498 

C8 



I NY 



7499 

CA 



DEX 



749A 

DO 

F8 


BNE 

*7494 


749C 

. 4C 

E8 

00 

JMP 

* 00E8 


749F 

4C 

1F 

74 

JMP 

♦ 741F 


7 4A2 

AO 

00 


LDY 

#*00 

On va vérifier la syntaxe de 

7 4A4 

A2 

04 


LDX 

#*04 

'TURN'. Si C=0 on va en $749F 

74A6 

20 

65 

74 

JSR 

*7465 

Il faut deux paramètres A et B 

7 4A9 

90 

F 4 


BCC 

* 7 49F 

séparés d'une 

7 4 AB 

20 

C8 

D8 

JSR 

♦ D8C8 


74 AE 

86 

00 


STX 

*00 


74B0 

20 

65 

DO 

JSR 

SD065 


7 4B3 

20 

CB 

D8 

JSR 

♦ D8C8 



7 4B6 

86 

01 


STX 

*01 

7 4B8 

A2 

01 


LDX 

#*01 On stocke le début du 

74BA 

B5 

9A 


LDA 

*9A,X BASIC en ($02) 

74BC 

95 

02 


STA 

*02 ,X 

7 4BE 

CA 



DEX 


7 4BF 

10 

F9 


BPL 

*7 4BA 

74C1 

AO 

04 


LDY 

#*04 On saute 4 octets et 

7 4C3 

B1 

02 


LDA 

( *02) ,Y on commence l'exploration. 

74C5 

FO 

OB 


BEQ 

* 7 4D2 Si on rencontre A, on le 

7 4C7 

C5 

00 


CMP 

*00 remplace par B 

7 4C9 

DO 

04 


BNE 

♦ 7 4CF 

7 4CB 

A5 

01 


LDA 

*01 

7 4 CD 

91 

02 


STA 

< *02) ,Y 

7 4CF 

C8 



INY 


7 4D0 

10 

Fl 


BPL 

*74C3 

7 4D2 

A2 

00 


LDX 

#*00 Si c'est la fin du programme 

7 4D4 

C8 



INY 

BASIC, on s'arrête, 

7 4D5 

B1 

02 


LDA 

( * 02 ) ,Y puis on s'en va... 

7 4D7 

DO 

OA 


BNE 

* 7 4E3 

7 4D9 

E8 



I NX 


7 4 DA 

EO 

02 


CPX 

#*02 

7 4DC 

DO 

F6 


BNE 

* 7 4D4 

7 4DE 

EA 



NOP 


7 4DF 

EA 



NOP 


74E0 

4C 

E8 

00 

JMP 

*00E8 

7 4E3 

AO 

01 


LDY 

#*01 

7 4E5 

B1 

02 


LDA 

(*02),Y 

7 4E7 

48 



PHA 


7 4E8 

88 



DEY 


7 4E9 

10 

FA 


BPL 

* 7 4 E5 On effectue le changement 

7 4EB 

A2 

00 


LDX 

#*00 de ligne puis on recommence 

7 4 ED 

68 



PLA 

l'exploration. 

7 4EE 

95 

02 


STA 

♦ 0 2, X 

7 4F0 

E8 



I NX 


74F1 

EO 

02 


CPX 

#*02 

7 4F3 

DO 

F8 


BNE 

* 7 4 ED 

7 4F5 

FO 

CA 


BEQ 

*74C1 

7 4F7 

AO 

07 


LDY 

#*07 

7 4F9 

A2 

04 


LDX 

#*04 Est-ce le mot-clé "SMEM" 

7 4FB 

20 

6 5 

74 

JSR 

*74 65 siC=0onvaen$749F 

7 4FE 

90 

9F 


BCC 

* 7 49F on demande 2 adresses 

7500 

A2 

00 


LDX 

#*00 que l'on stocke en 

7502 

86 

00 


STX 

*00 $01- 02 et$03-04 

7504 

20 

53 

E8 

JSR 

♦ E853 

7507 

A6 

00 


LDX 

*00 

7509 

94 

01 


STY 

* 01 , X 

750B 

95 

02 


STA 

* 02 , X 

750D 

20 

6 5 

DO 

JSR 

♦ D065 

7510 

E8 



INX 


7511 

E8 



I NX 


7512 

EO 

04 


CPX 

#*04 

7514 

DO 

EC 


BNE 

*7502 

7516 

20 

CB 

D8 

JSR 

*D8CB_. Il faut un paramètre 

7519 

8A 



TXA 


75 1A 

A8 



TAY 


75 IB 

B1 

01 


LDA 

(toi) , Y On swap une case 

75 1D 

AA 



TAX 

mémoire avec une autre. 

75 1E 

B1 

03 


LDA 

(*03),Y 

7520 

91 

01 


STA 

(*01),Y 

7522 

8A 



TXA 


7523 

91 

03 


STA 

(*03),Y 

7525 

88 



DEY 

Suivante Fin ? Si oui, on 

7526 

CO 

FF 


CPY 

#*FF recommence. 

7528 

DO 

Fl 


BNE 

*751B On s'en va... 

752A 

18 



CLC 


752B 

90 

B1 


BCC 

« 7 4DE 

752D 

AO 

04 


LDY 

#*04 

752F 

A2 

03 


LDX 

#*03 

7531 

20 

65 

74 

JSR 

*7465 

7534 

90 

C8 


BCC 

* 74FE Est-ce le mot-clé "BIP" 

7536 

A2 

4E 


LDX 

#*4E SiC=0onvaen$749F 

7538 

AO 

75 


LDY 

#*75 On fait le BIP 

753A 

20 

86 

FA 

JSR 

*FAB6 On attend 0,24 s 

753D 

A2 

00 


LDX 

#*00 On fait un silence 

753F 

AO 

18 


LDY 

#*18 On s'en va. 

7541 

20 

62 

D9 

JSR 

*D962 

7544 

A2 

57 


LDX 

#*57 

7546 

AO 

75 


LDY 

#*75 

7548 

20 

86 

FA 

JSR 

♦ FAB6 

754B 

18 



CLC 


754C 

90 

90 


BCC 

* 7 4DE 

0754E-7569 





754E 

77 00 

00 

00 00 

00 00 3E w.> l4donnéespourleBIP 

7 556 

OF 00 

00 

00 00 

00 00 00 . 


00 00 

00 

00 00 

00 00 55 . .U 

7566 

55 55 

55 

55 55 

55 55 55 UUUUUUUU 1 4 données pour le silence 
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PETITES ANNONCES 


La place réservée aux petites annonces est V 
limitée. En conséquence, celles-ci passent T 
dans leur ordre d'arrivée. Par contre, les peti¬ 
tes annonces farfelues sont systématique- ( 
ment rejetées... De même, comme il est peu 
probable qu'il existe des "généreux dona¬ 
teurs" de matériels ou de logiciels, les peti¬ 
tes annonces faisant appel è ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis "d'origine", ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho¬ 
tocopiée), le texte étant rédigé è raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 


VBrn»-ir»,- 

grammation du 6502 byo^A . _ 

Jajolet - 6, rue Mesnil - 61270 Aube. 

Vends Jasmin + logiciels : 1700 F. Interface pro¬ 
grammable : 200 F. ORIC-ATMOS : 550 F. Paulon 
Michel - tél. 46.83.08.40 poste 25.Q4 HR, HB. 

Vends Télestrat couleur + logiciels + pages vidéo- 
text + GP100 : 6500 F. Etienne Hervé - 54410 
Laneuveville DT Nancy. 

Vends livre TDOS : 50 F et collection Théorie (26) à 
l'unité ou groupé, prix à débattre. Jérôme au 
48.74.49.86. 


Echange nombreux logiciels sur microdisc : GRE 

NIER B.-24, av. Du Cdt Arnaud - appt. 25 - 51100 —__ 


Reims. 

Vends Télestrat + 10 disks : 3490 F avec les car¬ 
touches Rom Oric et Rom Atmos + 150 logiciels : 
3990 F. Tél. 78.02.81.93. 

Vends Duo Jasmin 1, 02.86, + easy text, multifich, 
cale microgéo, FTDOS, div. jeux : 2500 F franco de 
port. Tél. 37.98.56.21 BOYER 28 Cloyes. 

Vends Télestrat complet + souris + rom Atmos : 
3800 F. Code postal 57500. Tél. 87.90.30.57, 
machine achetée le 12.12.86. 

Vends Jasmin 1 lecteur de disk avec TDOS + trait, 
de text easy text et log. jeux : 2000 F. 

Tél. 81.83.15.05 le soir. 


Vends imprimante GP500A maghéKnvr— 
pour Atmos. Tél. 39.81.07.48. 


Vends ORIC-1 acheté décembre 85, TBE, peu ser¬ 
vi + péritel + magnéto + 55 jeux + 2 manuels : 
900 F. Pascal Leroy - tél. 47.09.15.09 urgent. 

Passionné d'ATMOS, cherche contact pour échan¬ 
ge de logiciels (K7 seulement). Bertrand Raux - 
31, Gde rue Billiers - 56490 Muzillac. 

Vends ATMOS + péritel + MCP40 + interf. (N/B) + 
inter, joystick + joystick + 230 logs. sur K7 + magné¬ 
to + livres, TBE :1100F.Modesti. 

Tél. 1.46.90.19.10. 




Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 


ANNONCEZ-VOUS ! 


LES PETITES ANNONCES ET LES MESSAGES 

Attention, vos PA seront mises sur le serveur avant la parution du journal 


Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 
SORACOM, La Haie de Pan -35170 BRUZ 














ABONNEZ 

VOUS?* 


Tous les programmes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 

Le prix :116F pour les abonnés à la revue (joirdre impérativement l'étiquette), 146 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


1 THEORIC n° 4 et 5 

2 THEORIC n° 6 et 7 

3 THEORIC n° 8 et 9 

4 THEORIC n° 10 et 12 

5 THEORIC n° 13 et 14 

6 THEORIC n° 15 et 16 

7 THEORIC n° 17 et 18 

8 THEORIC n° 19 et 20 

9 THEORIC n° 21 et 22 

10 THEORIC n° 23 et 24 
HS THEORIC HORS SERIE (n 

11 THEORIC n 6 25 et 26 

12 THEORIC n° 27 et 28 

13 THEORIC n° 29 et 30 


U TURBO .BAS S 
U DJDRAGON.BAS S 
U THEOFICH.BAS S 
U QVCDATAS.BAS S 
U OVC .BIN S 
U OVC .BAS S 
U VIRGUL .BAS S 
U LCAÏK7 .BIN S 
U MESURES .BAS S 
U LCAT/K7 .BAS S 


40 SECTORS 
76 SECTORS 

41 SECTORS 
24 SECTORS 
7 SECTORS 
3 SECTORS 
7 SECTORS 
3 SECTORS 
56 SECTORS 
9 SECTORS 


VOLUME : TQ2963Û 


U DEBUG .BAS S 
U DEBUG .BIN S 
U SUBHISTR.BAS S 
Ü CARtfAR .BAS S 
U CARNAR2 .BAS S 
U CARWAR3 .BAS S 
U INITDOS .BAS S 
U LABELS .BIN S 
U DEHOLABL.BAS S 
U LABELS .BAS S 
U NEWBOOT .BAS S 
U HISTOGRA.BAS S 


76 SECTORS 
22 SECTORS 
22 SECTORS 
11 SECTORS 
26 SECTORS 
45 SECTORS 
13 SECTORS 
3 SECTORS 
2 SECTORS 
9 SECTORS 
29 SECTORS 
7 SECTORS 


ATTENTION i II n'y a pas de progras*e 
TELESTRAT sur cette disquette 


DES DISQUETTES THEORIC 


Je commande les disquettes 1, 2. 3. 4. 5 HS ; 6, 7, 8 9 
10, 11, 12, 13. 

Ci-joint :116F par disquette et mon étiquette abonné 
146 F par disquette car je ne suis pas abonné 

Soit au total la somme de F réglée par chè¬ 

que ci-joint. 


Prénom 


NOM . 

Adresse 
Code Postal 










CE QUE VOUS OFFRE 
NOTRE SERVICE SUR MINITEL 


Nous disposons d'un service MINITEL 
que de nombreux lecteurs connaissent bien maintenant. 
Outre l'information diffusée, 
il devient un instrument de dialogue permanent 
entre vous et notre rédaction. 


NOS REVUES 


Dès que la revue est chez l'imprimeur, le 
sommaire apparaît sur la page concernée. 

Le lecteur peut également y trouver la liste 
des produits spécifiques à sa revue (dis¬ 
quettes, cassettes, livres). 


LA BOITE A LETTRES 


Déjà utilisée par des lecteurs de CPC et de 
Mégahertz, elle vous permet de poser vos 
questions techniques chaque jour - 24h sur 
24h - sans avoir à attendre que la ligne de 
téléphone soit libre les mercredi et vendredi. 

Les correspondances sont relevées chaque 
jour ! 

De plus, vous pouvez, entre lecteurs, écrire, 
recevoir des messages, faire des échanges 
techniques. 

Les boîtes à lettres sont ouvertes sous votre 
pseudo aux normes télématiques. 


LES PETITES ANNONCES 


24h sur 24h, 7 jours sur 7, elles sont acces¬ 
sibles. Nous venons d'améliorer ce service. 
Depuis le 1er janvier 1987, c'est chaque 
jour que les annonces sont mises en place. 
De plus, vous pouvez DIRECTEMENT pas¬ 
ser vos annonces sur le serveur. 


DES INFORMATIONS 


Des informations sont à votre disposition et 
régulièrement mises à jour, ainsi que les 
éventuelles corrections de listings en cas 
d’erreur. 


NOS PRODUITS 


Nos nombreux revendeurs peuvent utiliser 
le MINITEL pour passer commande. L'en¬ 
semble des produits disponibles est présen¬ 
té. Nous avons simplifié au maximum la pro¬ 
cédure. Lecteurs et revendeurs peuvent aus¬ 
si vérifier si le produit est disponible et quel 
est son prix de vente public. 


36.15, TAPEZ MHZ 
ET FAITES VOTRE CHOIX 
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